C SOURCES:
C    Erich Goll,  Hans-Joachim Werner, and Hermann Stoll.
C    A short-range gradient-corrected densityfunctional in long-range coupled-cluster calculations for rare gas dimers.
C    Physical Chemistry Chemical Physics, 7(23):3917, 2005.

C    Erich Goll, Hans-Joachim Werner, Hermann Stoll, Thierry Leininger, Paola Gori-Giorgi, and Andreas Savin.
C    A short-range gradient-corrected spin density functional in combination with long-range coupled-cluster methods:  Application to alkali-metal rare-gas dimers.
C    Chemical Physics,329(1-3):276-282, oct 2006.



C*****************************************************************************
      pure subroutine ESRC_PBE_GWS_ERF(rho_c, gamma_cc, mu, E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, mu
      real*8, intent(out) :: E
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46
      E = 0.0d0
      x0 = 0.693147180559945d0
      x1 = -x0 + 1.0d0
      x2 = 9.86960440108936d0
      x3 = 1d0/x2
      x4 = x1*x3
      x5 = 0.682784063255296d0*rho_c**(-0.333333333333333d0)
      x6 = 0.194159335344114d0*x5 + 1.0d0
      x7 = 2.14502939711103d0
      x8 = rho_c**0.666666666666667d0
      x9 = 1/(x7*x8)
      x10 = 0.564189583547756d0*rho_c**(-0.5d0)
      x11 = 0.826307487110758d0*rho_c**(-0.166666666666667d0)
      x12 = x2/x1
      x13 = log(0.5d0*x12/(1.4187228164796675d0*x10 + 7.2401019343168302
     &d0*x11 + 3.2595509194222925d0*x5 + 0.40691300451752932d0*x9) + 1.0
     &d0)
      x14 = x13*x6
      x15 = 2.0d0*x14*x4
      x16 = mu**2
      x17 = (0.508616435555896d0*x16*x9 + 1.0d0)**(-4)
      x18 = 1.41421356237310d0
      x19 = 4.60115111447049d0
      x20 = rho_c**(-1.33333333333333d0)
      x21 = 3.14159265358979d0
      x22 = rho_c**1.0d0
      x23 = 1d0/x22
      x24 = x23/x21
      x25 = (-0.009578475d0*x24 + 0.0188171922990732d0*x5 + 0.0676322201
     &645715d0*x9 + 1.0d0 + 0.00126674656487366d0*x20/x19)*exp( -0.68361
     &07611867116d0*x5)
      x26 = rho_c**(-1.66666666666667d0)
      x27 = 0.0837224526465878d0*x26
      x28 = 0.0223069557172962d0*mu**5*x18*x25*x27
      x29 = x16*x5
      x30 = 5.57236303607474d0*mu*x11 + 1.0d0
      x31 = mu**3
      x32 = 2.0d0*x3*(x0 - 1.0d0)*log((3.3926025578013106d0*x10*x31 + 6.
     &7683429898050367d0*x29 + x30)/(3.1331792677937806d0*x29 + x30))
      x33 = x1*x14
      x34 = 0.000640558526213818d0*mu**8*rho_c**(-2.66666666666667d0)*x3
     &3
      x35 = 0.148394183600699d0
      x36 = x25 - 1.0d0
      x37 = mu**6*(0.0108059179628909d0*rho_c**(-2.0d0)*x33 + 0.01673021
     &67879722d0* x26*x35*x36)
      x38 = 2.28942848510666d0*x19
      x39 = 1.63540853354893d0*x38*(-0.0259335011650457d0*x5 + 1.0d0)/( 
     &0.494402081358784d0*x5 + 0.0524148278841779d0*x9 + 1.0d0)
      x40 = x18*x31*(0.0315054072231411d0*x23*x25 + 0.00111534778586481d
     &0*x27*( 12.0d0*x21*x22*(-4.49737346725955d0*x5 + 0.825481812223657
     &d0*x9)* exp(-0.28165369188898165d0*x5) + x39*x8))
      x41 = mu**4*(0.00139418473233101d0*rho_c**(-1.0d0)*x35*(1.63540853
     &354893d0*x38 - x39 - 10.9027235569928d0*x7*(-0.352521395009435d0*x
     &5 + 0.558025705063192d0*x9)*exp(-0.49698248213959023d0*x5)) - 0.06
     &83590130188305d0*x20*x33 - 0.13157433081915d0*x24*x36)
      x42 = x15 - x17*(x28 - x32 + x34 + x37 + x40 - x41)
      x43 = exp(x12*x42) - 1.0d0
      x44 = (x15 + x17*(-x28 + x32 - x34 - x37 - x40 + x41))/(x13*x6)
      x45 = 3.53536660621036d0*gamma_cc*rho_c**(-2.33333333333333d0)*x1*
     &*(-3.78d0)* x44**2.78d0
      x46 = 1.0d0 + x45/x43
      E = -rho_c*(-x4*log(x45*x46/(12.498817040307328d0*gamma_cc**2*rho_
     &c**( -4.666666666666667d0)*x1**(-7.5599999999999996d0)*x44** 5.559
     &9999999999996d0/x43**2 + x46) + 1.0d0) + x42)
      end subroutine


C*****************************************************************************
      pure subroutine D1ESRC_PBE_GWS_ERF(rho_c, gamma_cc, mu, E, d1E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, mu
      real*8, intent(out) :: E, d1E(9)
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175
      E = 0.0d0
      d1E(:) = 0.0d0
      x0 = 2.14502939711103d0
      x1 = 1d0/x0
      x2 = rho_c**0.666666666666667d0
      x3 = 1d0/x2
      x4 = x1*x3
      x5 = 0.564189583547756d0
      x6 = rho_c**(-0.5d0)*x5
      x7 = 1.46459188756152d0
      x8 = 1d0/x7
      x9 = rho_c**(-0.333333333333333d0)*x8
      x10 = 0.826307487110758d0
      x11 = rho_c**(-0.166666666666667d0)*x10
      x12 = 7.24010193431683d0*x11 + 0.406913004517529d0*x4 + 1.41872281
     &647967d0*x6 + 3.25955091942229d0*x9
      x13 = 9.86960440108936d0
      x14 = 0.693147180559945d0
      x15 = -x14 + 1.0d0
      x16 = x13/x15
      x17 = x16/x12
      x18 = log(0.5d0*x17 + 1.0d0)
      x19 = 1d0/x13
      x20 = x15*x19
      x21 = 0.194159335344114d0*x9 + 1.0d0
      x22 = 2.0d0*x21
      x23 = x18*x20*x22
      x24 = mu**2
      x25 = 0.508616435555896d0*x24*x4 + 1.0d0
      x26 = x25**(-4)
      x27 = mu**4
      x28 = exp(-0.6836107611867116d0*x9)
      x29 = 4.60115111447049d0
      x30 = 1d0/x29
      x31 = rho_c**(-1.33333333333333d0)
      x32 = rho_c**1.0d0
      x33 = 1d0/x32
      x34 = 3.14159265358979d0
      x35 = 1d0/x34
      x36 = 0.009578475d0*x35
      x37 = 0.00126674656487366d0*x30*x31 - x33*x36 + 0.0676322201645715
     &d0*x4 + 0.0188171922990732d0*x9 + 1.0d0
      x38 = x28*x37
      x39 = x38 - 1.0d0
      x40 = 0.13157433081915d0*x39
      x41 = x33*x35
      x42 = x40*x41
      x43 = 0.0220208337265180d0
      x44 = x15*x18
      x45 = x31*x44
      x46 = 3.10428814221102d0*x21*x43*x45
      x47 = 0.148394183600699d0
      x48 = 2.28942848510666d0
      x49 = x29*x48
      x50 = exp(-0.49698248213959023d0*x9)
      x51 = x50*(0.558025705063192d0*x4 - 0.352521395009435d0*x9)
      x52 = x0*x51
      x53 = 0.0524148278841779d0*x4 + 0.494402081358784d0*x9 + 1.0d0
      x54 = 1d0/x53
      x55 = -0.0259335011650457d0*x9 + 1.0d0
      x56 = x54*x55
      x57 = 1.63540853354893d0*x49
      x58 = x56*x57
      x59 = x47*(1.63540853354893d0*x49 - 10.9027235569928d0*x52 - x58)
      x60 = 0.00139418473233101d0*rho_c**(-1.0d0)*x59
      x61 = x27*(-x42 - x46 + x60)
      x62 = x24*x9
      x63 = 5.57236303607474d0*mu*x11 + 1.0d0
      x64 = mu**3
      x65 = 3.39260255780131d0*x6*x64 + 6.76834298980504d0*x62 + x63
      x66 = x65/(3.13317926779378d0*x62 + x63)
      x67 = 2.0d0*log(x66)
      x68 = x19*(x14 - 1.0d0)
      x69 = x67*x68
      x70 = rho_c**(-1.66666666666667d0)
      x71 = x47*x70
      x72 = rho_c**(-2.0d0)
      x73 = 1.0525946465532d0*x72
      x74 = x21*x44
      x75 = 0.0102659822546843d0*x74
      x76 = mu**6*(0.0167302167879722d0*x39*x71 + x73*x75)
      x77 = 1.41421356237310d0
      x78 = 0.179587122125167d0
      x79 = 0.175432441092201d0*x38*x78
      x80 = 0.0837224526465878d0
      x81 = exp(-0.28165369188898165d0*x9)
      x82 = x81*(0.825481812223657d0*x4 - 4.49737346725955d0*x9)
      x83 = 12.0d0*x34
      x84 = x82*x83
      x85 = x80*(x2*x58 + x32*x84)
      x86 = 0.00111534778586481d0*x70
      x87 = x64*x77*(x33*x79 + x85*x86)
      x88 = mu**5
      x89 = x38*x77
      x90 = x80*x89
      x91 = 0.0223069557172962d0*x70
      x92 = x88*x90*x91
      x93 = 0.00478594012208448d0
      x94 = rho_c**(-2.66666666666667d0)
      x95 = x44*x94
      x96 = 0.133841734303777d0*mu**8*x21*x93*x95
      x97 = x76 + x87 + x92 + x96
      x98 = x26*(-x61 - x69 + x97)
      x99 = x23 - x98
      x100 = exp(x16*x99) - 1.0d0
      x101 = 70524387.5934282d0*x15**(-7.56d0)
      x102 = x61 + x69 - x76 - x87 - x92 - x96
      x103 = x102*x26 + x23
      x104 = 1d0/x21
      x105 = 1d0/x18
      x106 = x104*x105
      x107 = x103*x106
      x108 = x107**5.56d0
      x109 = rho_c**(-4.66666666666667d0)
      x110 = x108*x109
      x111 = x101*x110
      x112 = 1.77226878060434d-7*gamma_cc**2
      x113 = x111*x112
      x114 = x107**2.78d0
      x115 = 8397.87994635719d0*x15**(-3.78d0)
      x116 = 0.000420983227766184d0*rho_c**(-2.33333333333333d0)
      x117 = x115*x116
      x118 = x114*x117
      x119 = gamma_cc/x100
      x120 = x118*x119 + 1.0d0
      x121 = x20*log(gamma_cc*x118*x120/(x120 + x113/x100**2) + 1.0d0)
      x122 = x103*x16
      x123 = exp(x122)
      x124 = x123 - 1.0d0
      x125 = 1d0/x124
      x126 = gamma_cc*x125
      x127 = x118*x126 + 1.0d0
      x128 = x114*x127
      x129 = x124**(-2)
      x130 = 1d0/(x113*x129 + x127)
      x131 = gamma_cc*x130
      x132 = 0.000982294198121095d0*rho_c**(-3.33333333333333d0)
      x133 = 1d0/x103
      x134 = 0.0691804894611514d0*x45
      x135 = x1*x70
      x136 = rho_c**(-1.5d0)*x5
      x137 = x31*x8
      x138 = rho_c**(-1.16666666666667d0)*x10
      x139 = (0.27127533634502d0*x135 + 0.709361408239834d0*x136 + 1.086
     &51697314076d0 *x137 + 1.20668365571947d0*x138)/(x12**2*(x17 + 2.0d
     &0))
      x140 = x139*x21
      x141 = x102*x135*x24/x25**5
      x142 = x103*x104*x137
      x143 = x105*x122*x139
      x144 = rho_c**(-2.33333333333333d0)
      x145 = x144*x30
      x146 = x28*(-0.045088146776381d0*x135 - 0.00627239743302441d0*x137
     & - 0.00168899541983155d0*x145 + x36*x72)
      x147 = rho_c**(-3.0d0)
      x148 = mu**7
      x149 = 0.928727172679123d0*x138
      x150 = mu*x137
      x151 = x35*x72
      x152 = x28*(-0.0225440733881905d0*x135 + 0.113935126864452d0*x137*
     &x37 - 0.0031361987165122d0*x137 - 0.000844497709915773d0*x145 + 0.
     &0047892375d0*x151)
      x153 = 0.0141372897033723d0*x3*x34*x48*x54
      x154 = rho_c**(-0.333333333333333d0)
      x155 = x154*x49
      x156 = 1.09027235569928d0*x155*x56
      x157 = x2*x55*x57*(0.034943218589452d0*x135 + 0.164800693786261d0*
     &x137)/x53**2
      x158 = mu*x26*(2.83060463816878d-5*rho_c**(-4.0d0)*x148*x44 + 0.35
     &6911291476739d0*rho_c**(-3.66666666666667d0)*x148*x74*x93 - 0.0063
     &2205924947521d0*x140*x148*x94 - x146*x27*x77*x80*x91 - 0.000290571
     &663240495d0*x147*x27*x89 + x24*x77*( -0.00490180588786583d0*x144*x
     &38 - 0.175432441092201d0*x146*x33* x78 + x72*x79 - x80*x86*(2.4166
     &2179562687d0*rho_c**( -0.333333333333333d0)*x82 + x153 + x156 + x1
     &57 + x32*x81*x83*( -0.550321208149104d0*x135 + 1.49912448908652d0*
     &x137) + x84) + 0.00185891297644135d0*x85*x94) + 0.037178259528827d
     &0*x27*x90*x94 + x64*(-0.674676415744774d0*x140*x31 + 4.13905085628
     &136d0*x144* x43*x74 + x151*x40 - 0.263148661638301d0*x152*x41 - 0.
     &00232364122055169d0*x59*x72 + 0.00139418473233101d0*x71*( -10.9027
     &235569928d0*x0*x2*x50*(-0.372017136708795d0*x135 + 0.1175071316698
     &12d0*x137) - x153 - 7.26848237132856d0*x154*x52 + 1.09027235569928
     &d0*x155 - x156 - x157 - 1.80615420514536d0*x3*x51 *x7) + 0.0030207
     &5971817057d0*x95) + x88*(0.00047750955226877d0* rho_c**(-3.3333333
     &3333333d0)*x44 - 0.101321183642338d0*x140*x73 + 2.10518929310641d0
     &*x147*x75 - 0.0334604335759443d0*x152*x71 + 0.0278836946466203d0*x
     &39*x47*x94) + 2.0d0*x68*( -1.69630127890066d0*x136*x24 - x149 - 2.
     &25611432993501d0*x150 + x66*(x149 + 1.04439308926459d0*x150))/x65)
     &
      x159 = x133*(-0.359841968171091d0*x134 + 5.56d0*x140 + 3.770543175
     &58771d0*x141 + 0.179920984085546d0*x142 - 2.78d0*x143 + 2.78d0*x15
     &8)
      x160 = x116*x128
      x161 = x115*x132
      x162 = -0.129439556896076d0*x134 + x139*x22 + 1.35631049481572d0*x
     &141 + x158
      x163 = x123*x162
      x164 = 82883.752878387d0*x116*x125*x15**(-4.78d0)*x163
      x165 = x108*x126
      x166 = x101*x165
      x167 = exp(x16*(x23 - x26*(x20*x67 + x27*(x42 + x46 - x60) + x97))
     &) - 1.0d0
      x168 = x106*x99
      x169 = x101*x109*x168**5.56d0
      x170 = x117*x168**2.78d0
      x171 = gamma_cc/x167
      x172 = x170*x171 + 1.0d0
      x173 = 1d0/(x112*x169/x167**2 + x172)
      x174 = x170*x172
      x175 = x173*x174
      E = -rho_c*(-x121 + x99)
      d1E(1) = -rho_c*(-850.883136251163d0*x131*x15**(-2.78d0)*(x116*x16
     &5*(x117*x159 - x161 - x164) + x126*x130*x160*(246.716759338856d0*g
     &amma_cc*x110* x129*x15**(-8.56d0)*x163 + 8.27058764282027d-7*rho_c
     &**( -5.66666666666667d0)*x166 - 1.77226878060434d-7*x109*x133*x166
     &*( -0.719683936342183d0*x134 + 11.12d0*x140 + 7.54108635117542d0* 
     &x141 + 0.359841968171091d0*x142 - 5.56d0*x143 + 5.56d0*x158) + x11
     &4*x161 + x114*x164 - x118*x159) - x128*x132 + x159*x160)/(x117 *x1
     &28*x131 + 1.0d0) + x162) + x121 - x23 + x98
      d1E(3) = rho_c*x173*x20*(-x119*x175*(3.54453756120869d-7*x111*x119
     & + x118) + 1.77226878060434d-7*x169*x171 + x174)/(gamma_cc*x175 + 
     &1.0d0)
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_PBE_GWS_ERF(rho_c, gamma_cc, mu, E, d1E, d2
     &E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 2.14502939711103d0
      x1 = 1d0/x0
      x2 = rho_c**0.666666666666667d0
      x3 = 1d0/x2
      x4 = x1*x3
      x5 = rho_c**(-0.5d0)
      x6 = 0.564189583547756d0
      x7 = 1.41872281647967d0*x6
      x8 = 1.46459188756152d0
      x9 = 1d0/x8
      x10 = rho_c**(-0.333333333333333d0)*x9
      x11 = 0.826307487110758d0
      x12 = rho_c**(-0.166666666666667d0)*x11
      x13 = 3.25955091942229d0*x10 + 7.24010193431683d0*x12 + 0.40691300
     &4517529d0*x4 + x5*x7
      x14 = 9.86960440108936d0
      x15 = 0.693147180559945d0
      x16 = -x15 + 1.0d0
      x17 = 1d0/x16
      x18 = x14*x17
      x19 = x18/x13
      x20 = log(0.5d0*x19 + 1.0d0)
      x21 = 1d0/x14
      x22 = x16*x21
      x23 = 0.194159335344114d0*x10 + 1.0d0
      x24 = 2.0d0*x23
      x25 = x20*x22*x24
      x26 = mu**2
      x27 = 0.508616435555896d0*x26*x4 + 1.0d0
      x28 = x27**(-4)
      x29 = mu**4
      x30 = exp(-0.6836107611867116d0*x10)
      x31 = 4.60115111447049d0
      x32 = 1d0/x31
      x33 = rho_c**(-1.33333333333333d0)
      x34 = rho_c**1.0d0
      x35 = 1d0/x34
      x36 = 3.14159265358979d0
      x37 = 1d0/x36
      x38 = 0.009578475d0*x37
      x39 = 0.0188171922990732d0*x10 + 0.00126674656487366d0*x32*x33 - x
     &35*x38 + 0.0676322201645715d0*x4 + 1.0d0
      x40 = x30*x39
      x41 = x40 - 1.0d0
      x42 = 0.13157433081915d0*x41
      x43 = x35*x37
      x44 = x42*x43
      x45 = x16*x20
      x46 = x23*x45
      x47 = 0.022020833726518d0*x46
      x48 = 3.10428814221102d0*x33
      x49 = x47*x48
      x50 = 0.148394183600699d0
      x51 = 2.28942848510666d0
      x52 = x31*x51
      x53 = 1.63540853354893d0*x52
      x54 = exp(-0.49698248213959023d0*x10)
      x55 = x54*(-0.352521395009435d0*x10 + 0.558025705063192d0*x4)
      x56 = x0*x55
      x57 = 10.9027235569928d0*x56
      x58 = 0.494402081358784d0*x10 + 0.0524148278841779d0*x4 + 1.0d0
      x59 = 1d0/x58
      x60 = -0.0259335011650457d0*x10 + 1.0d0
      x61 = x59*x60
      x62 = 1.63540853354893d0*x52
      x63 = x61*x62
      x64 = x50*(x53 - x57 - x63)
      x65 = 0.00139418473233101d0*rho_c**(-1.0d0)*x64
      x66 = x29*(-x44 - x49 + x65)
      x67 = x10*x26
      x68 = 5.57236303607474d0*mu*x12 + 1.0d0
      x69 = 3.13317926779378d0*x67 + x68
      x70 = 1d0/x69
      x71 = mu**3
      x72 = 3.39260255780131d0*x5*x6*x71 + 6.76834298980504d0*x67 + x68
      x73 = x70*x72
      x74 = 2.0d0*log(x73)
      x75 = x21*(x15 - 1.0d0)
      x76 = x74*x75
      x77 = rho_c**(-1.66666666666667d0)
      x78 = x50*x77
      x79 = rho_c**(-2.0d0)
      x80 = 1.0525946465532d0*x79
      x81 = 0.0102659822546843d0*x46
      x82 = mu**6*(0.0167302167879722d0*x41*x78 + x80*x81)
      x83 = 1.41421356237310d0
      x84 = 0.179587122125167d0
      x85 = x40*x84
      x86 = 0.175432441092201d0*x85
      x87 = 0.0837224526465878d0
      x88 = -4.49737346725955d0*x10 + 0.825481812223657d0*x4
      x89 = exp(-0.28165369188898165d0*x10)
      x90 = x36*x89
      x91 = 12.0d0*x90
      x92 = x88*x91
      x93 = x87*(x2*x63 + x34*x92)
      x94 = 0.00111534778586481d0*x77
      x95 = x71*x83*(x35*x86 + x93*x94)
      x96 = mu**5
      x97 = x40*x87
      x98 = x83*x97
      x99 = 0.0223069557172962d0*x77
      x100 = x96*x98*x99
      x101 = 0.00478594012208448d0*x46
      x102 = rho_c**(-2.66666666666667d0)
      x103 = 0.133841734303777d0*x102
      x104 = mu**8*x101*x103
      x105 = x100 + x104 + x82 + x95
      x106 = x105 - x66 - x76
      x107 = x106*x28
      x108 = -x107 + x25
      x109 = x108*x18
      x110 = exp(x109)
      x111 = x110 - 1.0d0
      x112 = x111**(-2)
      x113 = rho_c**(-4.66666666666667d0)
      x114 = -x100 - x104 + x66 + x76 - x82 - x95
      x115 = x114*x28 + x25
      x116 = 1d0/x23
      x117 = 1d0/x20
      x118 = x116*x117
      x119 = x115*x118
      x120 = x119**5.56d0
      x121 = x113*x120
      x122 = x16**(-7.56d0)
      x123 = 70524387.5934282d0*x122
      x124 = x121*x123
      x125 = gamma_cc**2
      x126 = 1.77226878060434d-7*x125
      x127 = x124*x126
      x128 = x119**2.78d0
      x129 = x16**(-3.78d0)
      x130 = 8397.87994635719d0*x129
      x131 = x128*x130
      x132 = rho_c**(-2.33333333333333d0)
      x133 = 0.000420983227766184d0*x132
      x134 = x131*x133
      x135 = 1d0/x111
      x136 = gamma_cc*x135
      x137 = x134*x136 + 1.0d0
      x138 = x112*x127 + x137
      x139 = 1d0/x138
      x140 = x128*x137
      x141 = x130*x133
      x142 = x140*x141
      x143 = x139*x142
      x144 = gamma_cc*x143 + 1.0d0
      x145 = x22*log(x144)
      x146 = x115*x18
      x147 = exp(x146)
      x148 = x147 - 1.0d0
      x149 = x148**(-2)
      x150 = 1d0/x148
      x151 = gamma_cc*x150
      x152 = x134*x151 + 1.0d0
      x153 = x127*x149 + x152
      x154 = 1d0/x153
      x155 = gamma_cc*x154
      x156 = x128*x152
      x157 = x141*x156
      x158 = rho_c**(-3.33333333333333d0)
      x159 = 0.000982294198121095d0*x158
      x160 = x156*x159
      x161 = 1d0/x115
      x162 = 0.0691804894611514d0
      x163 = x162*x45
      x164 = x163*x33
      x165 = 0.359841968171091d0*x164
      x166 = x1*x77
      x167 = rho_c**(-1.5d0)
      x168 = x167*x6
      x169 = x33*x9
      x170 = rho_c**(-1.16666666666667d0)*x11
      x171 = 0.27127533634502d0*x166 + 0.709361408239834d0*x168 + 1.0865
     &1697314076d0* x169 + 1.20668365571947d0*x170
      x172 = x19 + 2.0d0
      x173 = 1d0/x172
      x174 = x173/x13**2
      x175 = x171*x174
      x176 = x175*x23
      x177 = 5.56d0*x176
      x178 = x27**(-5)
      x179 = x178*x26
      x180 = x114*x179
      x181 = x166*x180
      x182 = 3.77054317558771d0*x181
      x183 = x116*x169
      x184 = x115*x183
      x185 = 0.179920984085546d0*x184
      x186 = 2.78d0*x117
      x187 = x146*x175
      x188 = x186*x187
      x189 = rho_c**(-0.333333333333333d0)
      x190 = x189*x52
      x191 = 1.09027235569928d0*x190
      x192 = x3*x8
      x193 = 1.80615420514536d0*x192*x55
      x194 = 7.26848237132856d0*x189*x56
      x195 = x54*(-0.372017136708795d0*x166 + 0.117507131669812d0*x169)
      x196 = x0*x195
      x197 = 10.9027235569928d0*x2
      x198 = x196*x197
      x199 = x3*x36*x51
      x200 = 0.0141372897033723d0*x199*x59
      x201 = 1.09027235569928d0*x190*x61
      x202 = x58**(-2)
      x203 = 0.034943218589452d0*x166 + 0.164800693786261d0*x169
      x204 = x202*x203
      x205 = x204*x60
      x206 = x2*x62
      x207 = x205*x206
      x208 = x191 - x193 - x194 - x198 - x200 - x201 - x207
      x209 = 0.00139418473233101d0*x78
      x210 = 0.00232364122055169d0*x79
      x211 = x37*x79
      x212 = 0.200908840802769d0*x102
      x213 = 0.0150354743280612d0*x45
      x214 = rho_c**(-2.33333333333333d0)
      x215 = x214*x32
      x216 = 0.000844497709915773d0*x215
      x217 = 0.0047892375d0*x211
      x218 = 0.0225440733881905d0*x166
      x219 = 0.0031361987165122d0*x169
      x220 = -x216 + x217 - x218 - x219
      x221 = x30*(0.113935126864452d0*x169*x39 + x220)
      x222 = 0.263148661638301d0*x43
      x223 = 0.217336917462899d0
      x224 = x176*x223
      x225 = x211*x42 + x212*x213 + 4.13905085628136d0*x214*x47 - x221*x
     &222 - x224* x48
      x226 = 0.00168899541983155d0*x215
      x227 = x38*x79
      x228 = 0.045088146776381d0*x166
      x229 = 0.00627239743302441d0*x169
      x230 = x30*(-x226 + x227 - x228 - x229)
      x231 = x230*x84
      x232 = 0.175432441092201d0*x35
      x233 = x231*x232
      x234 = 0.122619224952946d0
      x235 = x214*x234
      x236 = 0.0399758348639607d0*x235*x40
      x237 = x79*x86
      x238 = 0.00185891297644135d0*x102*x93
      x239 = -0.550321208149104d0*x166 + 1.49912448908652d0*x169
      x240 = x34*x91
      x241 = x88*x89
      x242 = 2.14502939711103d0
      x243 = rho_c**(-0.333333333333333d0)*x242
      x244 = x200 + x201 + x207
      x245 = x87*(x239*x240 + 1.12661476755593d0*x241*x243 + x244 + x92)
     &
      x246 = x245*x94
      x247 = x26*x83
      x248 = 0.928727172679123d0*x170
      x249 = mu*x169
      x250 = 2.25611432993501d0*x249
      x251 = 1.69630127890066d0*x168*x26
      x252 = x248 + 1.04439308926459d0*x249
      x253 = -x248 - x250 - x251 + x252*x73
      x254 = 2.0d0/x72
      x255 = x253*x254
      x256 = x255*x75
      x257 = x230*x87
      x258 = x29*x83
      x259 = x258*x99
      x260 = x102*x50
      x261 = 0.00700944907716014d0*x45
      x262 = rho_c**(-3.33333333333333d0)
      x263 = 0.0681236923205142d0*x262
      x264 = rho_c**(-3.0d0)
      x265 = 0.0334604335759443d0*x78
      x266 = 0.101321183642338d0
      x267 = x266*x80
      x268 = mu**7
      x269 = 0.00326776364305339d0*x268*x45
      x270 = rho_c**(-4.0d0)
      x271 = 0.00866220739124163d0*x270
      x272 = rho_c**(-3.66666666666667d0)
      x273 = x101*x268
      x274 = x102*x29
      x275 = 0.0571643564037363d0
      x276 = x258*x40
      x277 = x275*x276
      x278 = x103*x268
      x279 = 0.0472353356922751d0
      x280 = x176*x279
      x281 = -0.00508309165921971d0*x264*x277 + x269*x271 + 0.3569112914
     &76739d0*x272* x273 + 0.037178259528827d0*x274*x98 - x278*x280 + x9
     &6*(-x176*x267 - x221*x265 + 0.0278836946466203d0*x260*x41 + x261*x
     &263 + 2.10518929310641d0*x264*x81)
      x282 = x247*(-x233 - x236 + x237 + x238 - x246) + x256 - x257*x259
     & + x281 + x71 *(x208*x209 - x210*x64 + x225)
      x283 = mu*x28
      x284 = x282*x283
      x285 = 2.78d0*x284
      x286 = -x165 + x177 + x182 + x185 - x188 + x285
      x287 = x161*x286
      x288 = x133*x287
      x289 = x156*x288
      x290 = x130*x159
      x291 = 82883.752878387d0*x16**(-4.78d0)
      x292 = x133*x291
      x293 = 1.35631049481572d0*x181
      x294 = x175*x24
      x295 = 0.129439556896076d0*x33
      x296 = x163*x295
      x297 = x294 - x296
      x298 = x284 + x293 + x297
      x299 = x147*x298
      x300 = x150*x299
      x301 = x292*x300
      x302 = x141*x287
      x303 = x120*(-x290 - x301 + x302)
      x304 = x133*x151
      x305 = x303*x304
      x306 = x123*x151
      x307 = rho_c**(-5.66666666666667d0)*x120
      x308 = 8.27058764282027d-7*x307
      x309 = gamma_cc*x121
      x310 = 3.54453756120869d-7*x149*x309
      x311 = 696047806.176231d0*x16**(-8.56d0)
      x312 = x299*x311
      x313 = x124*x151
      x314 = 1.77226878060434d-7*x313
      x315 = 0.719683936342183d0*x164
      x316 = 11.12d0*x176
      x317 = 7.54108635117542d0*x181
      x318 = 0.359841968171091d0*x184
      x319 = 5.56d0*x117
      x320 = x187*x319
      x321 = 5.56d0*x284
      x322 = -x315 + x316 + x317 + x318 - x320 + x321
      x323 = x161*x322
      x324 = x128*x290
      x325 = x128*x301 - x134*x287 + x324
      x326 = x306*x308 + x310*x312 - x314*x323 + x325
      x327 = x154*x156
      x328 = x304*x326*x327
      x329 = 850.883136251163d0*x16**(-2.78d0)
      x330 = exp(x18*(x25 - x28*(x105 + x22*x74 + x29*(x44 + x49 - x65))
     &)) - 1.0d0
      x331 = x108*x118
      x332 = x113*x123*x331**5.56d0
      x333 = x141*x331**2.78d0
      x334 = gamma_cc/x330
      x335 = x333*x334 + 1.0d0
      x336 = 1d0/(x126*x332/x330**2 + x335)
      x337 = x333*x335
      x338 = x336*x337
      x339 = 3.54453756120869d-7*x124
      x340 = x136*x339
      x341 = x22*x336*(-x136*x338*(x134 + x340) + 1.77226878060434d-7*x3
     &32*x334 + x337)/(gamma_cc*x338 + 1.0d0)
      x342 = x106*x179
      x343 = 2.71262098963145d0*x166
      x344 = x50*(-x53 + x57 + x63)
      x345 = -x191 + x193 + x194 + x198 + x244
      x346 = x22*x255
      x347 = x30*(x226 - x227 + x228 + x229)
      x348 = x259*x87
      x349 = -x247*(x233 + x236 - x237 - x238 + x246) + x281 - x346 + x3
     &47*x348 + x71 *(-x209*x345 + x210*x344 + x225)
      x350 = x283*x349
      x351 = x160 - x289 - x305 - x328
      x352 = 1d0/x144
      x353 = x154*x352
      x354 = gamma_cc*x329*x351*x353
      x355 = x163*x214
      x356 = 0.172586075861435d0*x355
      x357 = 0.682784063255296d0*x175
      x358 = x295*x357
      x359 = x169*x175
      x360 = 0.129439556896076d0*x359
      x361 = x1*x102
      x362 = rho_c**(-2.5d0)*x6
      x363 = x214*x9
      x364 = rho_c**(-2.16666666666667d0)*x11
      x365 = x174*(0.452125560575033d0*x361 + 1.06404211235975d0*x362 + 
     &1.44868929752102d0*x363 + 1.40779759833938d0*x364)
      x366 = x24*x365
      x367 = x171**2/(x13**4*x172**2)
      x368 = x18*x24*x367
      x369 = x171*x173*(0.542550672690039d0*x166 + x167*x7 + 2.173033946
     &28153d0*x169 + 2.41336731143894d0*x170)/x13**3
      x370 = x24*x369
      x371 = x262*x32
      x372 = x29*x371/x27**6
      x373 = 2.29947269793409d0*x372
      x374 = x106*x373
      x375 = 2.26051749135954d0*x361
      x376 = x342*x375
      x377 = x178*x71
      x378 = x343*x377
      x379 = x349*x378
      x380 = 0.00464728244110338d0*x260
      x381 = rho_c**(-1.33333333333333d0)
      x382 = x381*x52
      x383 = 0.363424118566428d0*x382
      x384 = 0.299209d0*x55*x79
      x385 = 3.61230841029072d0*x192*x195
      x386 = 2.42282745710952d0*x381*x56
      x387 = 14.5369647426571d0*x189*x196
      x388 = x0*x197*x54*(0.620028561181324d0*x361 - 0.156676175559749d0
     &*x363)
      x389 = 0.363424118566428d0*x382*x61
      x390 = 0.0282745794067445d0*x199*x204
      x391 = 2.18054471139857d0*x190*x205
      x392 = x206*x60
      x393 = x202*x392*(0.0582386976490866d0*x361 + 0.219734258381682d0*
     &x363)
      x394 = x203*x392*(0.0698864371789039d0*x166 + 0.329601387572523d0*
     &x169)/x58**3
      x395 = 0.00619637658813783d0*x264
      x396 = 0.455740507457808d0*x169
      x397 = -x264*x38 + 0.0259624262672375d0*x361*x39 + 0.0375734556469
     &842d0*x361 - 0.151913502485936d0*x363*x39 + 0.00418159828868294d0*
     &x363 + 0.00197049465647014d0*x371
      x398 = x30*(-x396*(x216 - x217 + x218 + x219) + x397)
      x399 = x264*x37
      x400 = rho_c**(-3.66666666666667d0)
      x401 = x23*x365
      x402 = x223*x48
      x403 = x23*x367
      x404 = x17*x403
      x405 = x23*x369
      x406 = 0.148394183600699d0*x175*x212 + 0.200908840802769d0*x175*x2
     &60 + 0.526297323276602d0*x211*x221 - 0.535756908807384d0*x213*x272
     & - 0.267878454403692d0*x213*x400 + 8.27810171256273d0*x214*x224 - 
     &9.65778533132318d0*x262*x47 - 0.263148661638301d0*x399*x41 + x401 
     &*x402 - x402*x405 + 2.14502939711103d0*x404*x48
      x407 = rho_c**(-4.33333333333333d0)
      x408 = x175*x263
      x409 = x162*x408 + 4.21037858621281d0*x176*x264*x266 + 0.111534778
     &586481d0*x221 *x260 - 0.363326359042743d0*x261*x407 + x267*x401 - 
     &x267*x405 - 6.31556787931922d0*x270*x81 - 0.074356519057654d0*x272
     &*x41*x50 + x404*x80 + 0.0691804894611514d0*x408
      x410 = 0.0799516697279215d0*x230*x235
      x411 = 0.350864882184401d0*x231*x79
      x412 = x30*(0.0751469112939684d0*x361 + 0.00836319657736588d0*x363
     & + 0.00394098931294027d0*x371 - 0.01915695d0*x399)
      x413 = x232*x412*x84
      x414 = 0.00910930363347549d0*x400*x97
      x415 = 0.133252782879869d0*x234*x262*x40
      x416 = 0.350864882184401d0*x264*x85
      x417 = 0.00495710127051027d0*x272*x93
      x418 = 0.0037178259528827d0*x102*x245
      x419 = x389 - x390 - x391 + x393 - x394
      x420 = x87*x94*(-2.25322953511185d0*x239*x243*x89 - 24.0d0*x239*x9
     &0 - x240*( 0.917202013581841d0*x361 - 1.99883265211535d0*x363) - 0
     &.751076511703951d0*x241*x242*x33 - 0.154912426780983d0*x241*x77 + 
     &x419)
      x421 = 1.08351503479231d0*x364
      x422 = mu*x363
      x423 = 2.0d0*x248 + 2.0d0*x250 + 2.0d0*x251
      x424 = mu*x252
      x425 = x424*x70
      x426 = x254*(2.54445191835098d0*x26*x362 + x421 + 3.00815243991335
     &d0*x422 - x423*x425 + x424*x72*(1.85745434535825d0*x170 + 2.088786
     &17852919d0*x249)/x69**2 - x73*(x421 + 1.39252411901946d0* x422))
      x427 = mu*x253*x423/x72**2
      x428 = 0.0101661833184394d0*x258*x264*x275
      x429 = 0.074356519057654d0*x274*x83
      x430 = x175*x268*x271
      x431 = x278*x279
      x432 = -0.0577480492749442d0*rho_c**(-5.0d0)*x269 - 1.308674735414
     &71d0*rho_c**( -4.66666666666667d0)*x273 + 0.713822582953479d0*x268
     &*x272*x280 + 0.023721094409692d0*x270*x277 - 0.0991420254102054d0*
     &x272*x29*x98 - 4.52089344419912d-5*x276*x407 + 0.466194077035412d0
     &*x278*x404 - x348*x412 + x401*x431 - x405*x431 + 0.064503068866399
     &d0*x430
      x433 = x283*(-x22*x426 - x22*x427 - x247*(x410 - x411 + x413 + x41
     &4 - x415 + x416 + x417 - x418 - x420) + x346*x425 + x347*x428 - x3
     &47*x429* x87 + x432 + x71*(-x209*(x383 + x384 + x385 - x386 + x387
     & + x388 - x389 + x390 + x391 - x393 + x394) - x222*x398 - x344*x39
     &5 + x345*x380 + x406) + x96*(-x265*x398 + x409))
      x434 = x165 - x177 - x182 - x185 + x188 - x285
      x435 = x161*x434
      x436 = x133*x140
      x437 = x435*x436
      x438 = x120*(x290 + x301 - x302)
      x439 = x123*x136
      x440 = -1.35631049481572d0*x166*x342 + x297 + x350
      x441 = x110*x135
      x442 = x440*x441
      x443 = x128*x292
      x444 = x110*x112*x309*x311*x440
      x445 = x124*x136
      x446 = x161*(x315 - x316 - x317 - x318 + x320 - x321)
      x447 = x134*x435 + x308*x439 + x324 + x442*x443 + 3.54453756120869
     &d-7*x444 + 1.77226878060434d-7*x445*x446
      x448 = x139*x447
      x449 = x136*x448
      x450 = x125*x154
      x451 = 0.00327431399373698d0*rho_c**(-4.33333333333333d0)*x130
      x452 = 0.00196458839624219d0*x158
      x453 = x130*x452
      x454 = x435*x453
      x455 = x115**(-2)
      x456 = x141*x455
      x457 = x434**2*x456
      x458 = 0.156226553915631d0*rho_c**(-3.66666666666667d0)*x116*x129
      x459 = x435*x458
      x460 = x117*x175
      x461 = x291*x460
      x462 = x434*x440*x456
      x463 = x151*x438
      x464 = 0.000841966455532367d0*x132
      x465 = x130*x464
      x466 = x435*x465
      x467 = 0.479789290894789d0*x355
      x468 = x33*x357
      x469 = 0.359841968171091d0*x468
      x470 = 0.359841968171091d0*x359
      x471 = 5.56d0*x401
      x472 = x18*x403
      x473 = 5.56d0*x472
      x474 = 5.56d0*x405
      x475 = x114*x372
      x476 = 6.39253410025677d0*x475
      x477 = x180*x361
      x478 = 6.28423862597952d0*x477
      x479 = x115*x361/x23**2
      x480 = 0.023288892456339d0*x479
      x481 = x115*x116*x363
      x482 = 0.239894645447394d0*x481
      x483 = x146*x365
      x484 = x186*x483
      x485 = 97.4090910340024d0*x115*x367/x16**2
      x486 = x485/x20**2
      x487 = 5.56d0*x486
      x488 = x186*x485
      x489 = 6.73880859569814d0*x119*x17*x175*x33
      x490 = 0.359841968171091d0*x489
      x491 = x146*x369
      x492 = x186*x491
      x493 = x166*x282*x377
      x494 = 7.54108635117542d0*x493
      x495 = -x284 - x293 - x294 + x296
      x496 = x183*x495
      x497 = 0.359841968171091d0*x496
      x498 = x175*x18*x495
      x499 = x319*x498
      x500 = x30*(x220*x396 + x397)
      x501 = x283*(-x230*x428 + x247*(-x410 + x411 - x413 - x414 + x415 
     &- x416 - x417 + x418 + x420) - x256*x425 + x257*x429 + x426*x75 + 
     &x427*x75 + x432 + x71*(-x208*x380 + x209*(-x383 - x384 - x385 + x3
     &86 - x387 - x388 + x419) - x222*x500 + x395*x64 + x406) + x96*(-x2
     &65*x500 + x409))
      x502 = 2.78d0*x501
      x503 = x141*x161*(-x467 + x469 + x470 + x471 + x473 - x474 - x476 
     &+ x478 - x480 + x482 - x484 - x487 - x488 + x490 + x492 - x494 + x
     &497 - x499 - x502)
      x504 = x140*x449
      x505 = x131*x452
      x506 = 1.65411752856405d-6*x307
      x507 = x128*x464
      x508 = x291*x442
      x509 = x131*x464
      x510 = x291*x452
      x511 = 818029.852187331d0*x16**(-5.78d0)
      x512 = x440**2*x511
      x513 = x356 - x358 - x360 - x366 - x368 + x370
      x514 = x149*x312
      x515 = x298**2
      x516 = x147*x515
      x517 = x515*exp(2.0d0*x146)
      x518 = 6869716491.20552d0*x16**(-9.56d0)
      x519 = x134*x455
      x520 = x306*x506
      x521 = x314*x455
      x522 = x151*x323
      x523 = 7.08907512241738d-7*x309*x514
      x524 = x147*(x114*x373 - x180*x375 + x282*x378 + x501 + x513)
      x525 = x143*x151
      x526 = x139*x352
      x527 = 1.77226878060434d-7*x313
      x528 = x151*x339
      x529 = x134 + x528
      x530 = x151*x154
      x531 = x529*x530
      x532 = -x157*x531 + x157 + x527
      x533 = x130*x160
      x534 = x327*x529
      x535 = x149*x450
      x536 = x157*x530
      x537 = x157*(7.08907512241738d-7*x313 + x509)/x153**2
      x538 = rho_c*x353
      x539 = 3.54453756120869d-7*x124
      E = -rho_c*(x108 - x145)
      d1E(1) = -rho_c*(-x155*x329*(-x160 + x289 + x305 + x328)/(x155*x15
     &7 + 1.0d0) + x298) + x107 + x145 - x25
      d1E(3) = rho_c*x341
      d2E(1) = rho_c*(gamma_cc*x22*x526*(x112*x125*x142*x447*(x340*x446 
     &+ x435*x509 + x439*x506 + 7.08907512241738d-7*x444 + x505 + x507*x
     &508)/x138**2 + x120*x136*x141*(x112*x464*x512*exp(2.0d0*x109) - x1
     &33*x441*x512 - x292*x435*x460 - x292*x441*(-x374 + x376 + x379 + x
     &433 + x513) + x435*x464*x508 + x442*x510 + x451 + x454 + x457 + x4
     &59 + x462 - x503) - x125*x135*x150*x438*x448*x465 + x140*x451 + x1
     &40*x454 + x140*x457 + x140*x459 + x140*x462 - x140*x503 - x437*x46
     &1 + x453* x463 - x453*x504 + x463*x466 - x466*x504 - x525*( 3.3082
     &3505712811d-6*gamma_cc*x307*x514 + 4.68666633093149d-6* rho_c**(-6
     &.66666666666667d0)*x120*x306 - 0.552318141716643d0* rho_c**(-6.0d0
     &)*x116*x120*x122*x522 + 1.77226878060434d-7*x121* x311*x460*x522 -
     & x128*x133*x150*x511*x516 - x128*x287*x458 + x128 *x288*x461 + x12
     &8*x300*x510 + x128*x451 + x134*x161*(x467 - x469 - x470 - x471 - x
     &473 + x474 + x476 - x478 + x480 - x482 + x484 + x487 + x488 - x490
     & - x492 + x494 - x497 + x499 + x502) + x149* x507*x511*x517 - x150
     &*x443*x524 + x161*x314*(11.12d0*x117*x498 + x319*x483 + x319*x485 
     &- x319*x491 + 0.959578581789577d0*x355 - 0.719683936342183d0*x359 
     &- 11.12d0*x401 + 11.12d0*x405 - 0.719683936342183d0*x468 - 11.12d0
     &*x472 + 12.7850682005135d0*x475 - 12.568477251959d0*x477 + 0.04657
     &7784912678d0*x479 - 0.479789290894789d0*x481 + 11.12d0*x486 - 0.71
     &9683936342183d0* x489 + 15.0821727023508d0*x493 - 0.71968393634218
     &3d0*x496 + 5.56d0*x501) + x286**2*x519 - x286*x298*x519 - x287*x29
     &1*x300* x507 - x287*x505 - x298*x322*x521 - x310*x311*x524 - x310*
     &x516* x518 + x322**2*x521 - x323*x520 - x323*x523 + 1.063361268362
     &61d-6 *x309*x517*x518/x148**3)) - 7145614.42661715d0*x139*x16**(-6
     &.56d0 )*x351*x450*(x140*x159 + x304*x438 - x436*x449 + x437)/x144*
     &*2 - x356 + x358 + x360 + x366 + x368 - x370 + x374 - x376 - x379 
     &- x433) + 0.258879113792152d0*x164 - 4.0d0*x176 + x342*x343 - 2.0d
     &0 *x350 - 2.0d0*x354
      d2E(4) = x341 - x538*(x22*(-1.77226878060434d-7*x124*x326*x535 + x
     &125*x149*x326* x537 + x141*x303*x529*x535 + x151*x302*x534 - x151*
     &x303*x465 - x156*x302 - x287*x527 + 4.13529382141014d-7*x306*x307 
     &- x326*x536 - x531*x533 + x533 - x536*(-x323*x528 + x325 + x520 + 
     &x523)) - x354*x532)
      d2E(6) = -x22*x538*(x150*(88.3758007628711d0*rho_c**(-7.0d0)*x119*
     &*8.34d0*x152* x16**(-11.34d0)*x530 - x151*x529*x537 + x465*x534 + 
     &x531*x539 - x539) + x526*x532*(x142 + 1.77226878060434d-7*x445 - x
     &525*x529))
      end subroutine


C*****************************************************************************
      pure subroutine ESRC_SPIN_PBE_GWS_ERF(rho_c, rho_s, gamma_cc, mu, 
     &E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, mu
      real*8, intent(out) :: E
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82
      E = 0.0d0
      x0 = 0.682784063255296d0*rho_c**(-0.333333333333333d0)
      x1 = 2.14502939711103d0
      x2 = rho_c**0.666666666666667d0
      x3 = 1/(x1*x2)
      x4 = 0.564189583547756d0*rho_c**(-0.5d0)
      x5 = 0.826307487110758d0*rho_c**(-0.166666666666667d0)
      x6 = 9.86960440108936d0
      x7 = 0.693147180559945d0
      x8 = -x7 + 1.0d0
      x9 = 1d0/x8
      x10 = x6*x9
      x11 = 2.0d0*(0.194159335344114d0*x0 + 1.0d0)*log(0.5d0*x10/( 3.259
     &5509194222925d0*x0 + 0.40691300451752932d0*x3 + 1.4187228164796675
     &d0*x4 + 7.2401019343168302d0*x5) + 1.0d0)
      x12 = 1d0/x6
      x13 = x12*x8
      x14 = x11*x13
      x15 = rho_s**4/rho_c**4
      x16 = rho_s/rho_c
      x17 = x16 + 1.0d0
      x18 = -x16 + 1.0d0
      x19 = 1.92366105093154d0*x17**1.33333333333333d0 + 1.9236610509315
     &4d0*x18** 1.33333333333333d0 - 3.84732210186307d0
      x20 = 0.0197517897025652d0*x19*(0.101077332976288d0*x0 + 1.0d0)*(-
     &x15 + 1.0d0) *log(1.0d0 + 29.608574643216677d0/(3.2918048099450625
     &d0*x0 + 0.41002507094961249d0*x3 + 0.76232752193529008d0*x4 + 9.87
     &21297225692712d0*x5))
      x21 = (0.186690969707574d0*x0 + 1.0d0)*log(x10/(5.630984149097876d
     &0*x0 + 0.51606646454786342d0*x3 + 2.9152147142191778d0*x4 + 13.457
     &913714394447d0*x5) + 1.0d0)
      x22 = x13*x15*x19
      x23 = x22*(-x11 + x21)
      x24 = rho_s**2/rho_c**2
      x25 = -x24 + 1.0d0
      x26 = 4.60115111447049d0
      x27 = rho_c**(-1.33333333333333d0)/x26
      x28 = 3.14159265358979d0
      x29 = rho_c**1.0d0
      x30 = 1d0/x29
      x31 = x30/x28
      x32 = (0.0188171922990732d0*x0 + 0.00126674656487366d0*x27 + 0.067
     &6322201645715d0*x3 - 0.009578475d0*x31 + 1.0d0)*exp( -0.6836107611
     &867116d0*x0)
      x33 = x25*x32
      x34 = 1.41421356237310d0
      x35 = rho_c**(-1.66666666666667d0)
      x36 = 0.0837224526465878d0*x35
      x37 = 0.0892278228691848d0*mu**5*x34*x36
      x38 = x17**0.666666666666667d0 + x18**0.666666666666667d0
      x39 = x38**3
      x40 = mu**2
      x41 = x0*x40/x38**2
      x42 = 11.1447260721495d0*mu*x5/x38 + 1.0d0
      x43 = mu**3
      x44 = x39*log((27.073371959220147d0*x41 + x42 + 27.140820462410485
     &d0*x4*x43/ x39)/(12.532717071175123d0*x41 + x42))
      x45 = 0.0315054072231411d0*x30
      x46 = 1d0/x17
      x47 = x46**0.666666666666667d0
      x48 = 0.0524148278841779d0*x3
      x49 = x0*x46**0.333333333333333d0
      x50 = 2.28942848510666d0*x26
      x51 = 0.817704266774463d0*x50
      x52 = x17**2*x51*(-0.0259335011650457d0*x49 + 1.0d0)/(x47*(x47*x48
     & + 0.494402081358784d0*x49 + 1.0d0))
      x53 = 1d0/x18
      x54 = x53**0.666666666666667d0
      x55 = x0*x53**0.333333333333333d0
      x56 = x18**2*x51*(-0.0259335011650457d0*x55 + 1.0d0)/(x54*(x48*x54
     & + 0.494402081358784d0*x55 + 1.0d0))
      x57 = 0.00111534778586481d0*x36*(x2*x52 + x2*x56 + 12.0d0*x25*x28*
     &x29*( -4.49737346725955d0*x0 + 0.825481812223657d0*x3)*exp( -0.281
     &65369188898165d0*x0))
      x58 = 4.0d0*x34*x43
      x59 = -x14 + x20
      x60 = -x23 + x59
      x61 = 0.0126441184989504d0*mu**8*rho_c**(-2.66666666666667d0)
      x62 = 0.148394183600699d0
      x63 = x25*(x32 - 1.0d0)
      x64 = -0.0167302167879722d0*x35*x62*x63
      x65 = 0.0533250677421794d0*rho_c**(-2.0d0)
      x66 = 4.0d0*mu**6
      x67 = -0.13157433081915d0*x31*x63
      x68 = 0.817704266774463d0*x50*(x17**2.66666666666667d0 + x18** 2.6
     &6666666666667d0)
      x69 = 10.9027235569928d0*x1*x25*(-0.352521395009435d0*x0 + 0.55802
     &5705063192d0 *x3)*exp(-0.49698248213959023d0*x0)
      x70 = 0.00139418473233101d0*rho_c**(-1.0d0)*x62
      x71 = 1.55214407110551d0*x27
      x72 = 4.0d0*mu**4
      x73 = 0.25d0/(0.508616435555896d0*x3*x40 + 1.0d0)**4
      x74 = x73*(-x13*x44 - x33*x37 - x58*(x33*x45 + x57) + x60*x61 + x6
     &6*(x60*x65 + x64) + x72*(x60*x71 + x67 - x70*(x52 + x56 - x68 + x6
     &9)))
      x75 = x17**0.666666666666667d0 + x18**0.666666666666667d0
      x76 = x75**3
      x77 = x32*(x24 - 1.0d0)
      x78 = x22*(x11 - x21) + x59
      x79 = -1.0d0 + exp(-8.0d0*x10*(-x73*(x12*x44*(x7 - 1.0d0) + x37*x7
     &7 + x58*(x45 *x77 - x57) + x61*x78 + x66*(x64 + x65*x78) + x72*(x6
     &7 + x70*( -x52 - x56 + x68 - x69) + x71*x78)) + x78)/x76)
      x80 = (x60 - x74)/x60
      x81 = 0.167187784415092d0*gamma_cc*rho_c**(-2.33333333333333d0)*x8
     &0**2.78d0*x9 /x75**2
      x82 = 1.0d0 + x81/x79
      E = -rho_c*(-0.125d0*x13*x76*log(x81*x82/(0.027951755257627309d0*g
     &amma_cc**2 *rho_c**(-4.666666666666667d0)*x80**5.5599999999999996d
     &0/(x75**4* x79**2*x8**2) + x82) + 1.0d0) + x14 - x20 + x23 + x74)
      end subroutine


C*****************************************************************************
      pure subroutine D1ESRC_SPIN_PBE_GWS_ERF(rho_c, rho_s, gamma_cc, mu
     &, E, d1E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, mu
      real*8, intent(out) :: E, d1E(9)
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547
      E = 0.0d0
      d1E(:) = 0.0d0
      x0 = 0.693147180559945d0
      x1 = -x0 + 1.0d0
      x2 = 1d0/x1
      x3 = 1.46459188756152d0
      x4 = 1d0/x3
      x5 = rho_c**(-0.333333333333333d0)*x4
      x6 = 0.186690969707574d0*x5 + 1.0d0
      x7 = 2.14502939711103d0
      x8 = 1d0/x7
      x9 = rho_c**0.666666666666667d0
      x10 = 1d0/x9
      x11 = x10*x8
      x12 = 0.564189583547756d0
      x13 = rho_c**(-0.5d0)*x12
      x14 = 0.826307487110758d0
      x15 = rho_c**(-0.166666666666667d0)*x14
      x16 = 0.516066464547863d0*x11 + 2.91521471421918d0*x13 + 13.457913
     &7143944d0* x15 + 5.63098414909788d0*x5
      x17 = 9.86960440108936d0
      x18 = x17*x2
      x19 = 1.0d0 + x18/x16
      x20 = log(x19)
      x21 = x20*x6
      x22 = 0.406913004517529d0*x11 + 1.41872281647967d0*x13 + 7.2401019
     &3431683d0* x15 + 3.25955091942229d0*x5
      x23 = x18/x22
      x24 = log(0.5d0*x23 + 1.0d0)
      x25 = 0.194159335344114d0*x5 + 1.0d0
      x26 = 2.0d0*x25
      x27 = x24*x26
      x28 = x21 - x27
      x29 = 1d0/x17
      x30 = x1*x29
      x31 = 1d0/rho_c
      x32 = rho_s*x31
      x33 = x32 + 1.0d0
      x34 = -x32 + 1.0d0
      x35 = 1.92366105093154d0*x33**1.33333333333333d0 + 1.9236610509315
     &4d0*x34** 1.33333333333333d0 - 3.84732210186307d0
      x36 = rho_c**(-4)
      x37 = rho_s**4
      x38 = x36*x37
      x39 = x35*x38
      x40 = x30*x39
      x41 = x28*x40
      x42 = x27*x30
      x43 = 0.410025070949612d0*x11 + 0.76232752193529d0*x13 + 9.8721297
     &2256927d0* x15 + 3.29180480994506d0*x5
      x44 = 1.0d0 + 29.6085746432167d0/x43
      x45 = log(x44)
      x46 = x35*x45
      x47 = -x38 + 1.0d0
      x48 = 0.101077332976288d0*x5 + 1.0d0
      x49 = x47*x48
      x50 = x46*x49
      x51 = 0.0197517897025652d0*x50
      x52 = -x42 + x51
      x53 = -x41 + x52
      x54 = 1d0/x53
      x55 = mu**2
      x56 = 0.508616435555896d0*x11*x55 + 1.0d0
      x57 = x56**(-4)
      x58 = rho_c**(-2)
      x59 = rho_s**2
      x60 = x58*x59
      x61 = -x60 + 1.0d0
      x62 = exp(-0.6836107611867116d0*x5)
      x63 = 4.60115111447049d0
      x64 = 1d0/x63
      x65 = rho_c**(-1.33333333333333d0)
      x66 = x64*x65
      x67 = rho_c**1.0d0
      x68 = 1d0/x67
      x69 = 3.14159265358979d0
      x70 = 1d0/x69
      x71 = 0.009578475d0*x70
      x72 = 0.0676322201645715d0*x11 + 0.0188171922990732d0*x5 + 0.00126
     &674656487366d0*x66 - x68*x71 + 1.0d0
      x73 = x62*x72
      x74 = x61*x73
      x75 = 0.0837224526465878d0
      x76 = 1.41421356237310d0
      x77 = mu**5*x76
      x78 = x75*x77
      x79 = x74*x78
      x80 = rho_c**(-1.66666666666667d0)
      x81 = 0.0892278228691848d0*x80
      x82 = x79*x81
      x83 = x33**0.666666666666667d0 + x34**0.666666666666667d0
      x84 = x83**3
      x85 = x83**2
      x86 = 1d0/x85
      x87 = x55*x86
      x88 = x5*x87
      x89 = 1d0/x83
      x90 = mu*x89
      x91 = 11.1447260721495d0*x15*x90 + 1.0d0
      x92 = mu**3
      x93 = 1d0/x84
      x94 = 27.1408204624105d0*x13*x92*x93 + 27.0733719592201d0*x88 + x9
     &1
      x95 = x94/(12.5327170711751d0*x88 + x91)
      x96 = log(x95)
      x97 = x84*x96
      x98 = x30*x97
      x99 = 0.179587122125167d0
      x100 = 0.175432441092201d0*x68*x99
      x101 = 0.825481812223657d0*x11 - 4.49737346725955d0*x5
      x102 = exp(-0.28165369188898165d0*x5)
      x103 = x101*x102*x69
      x104 = 12.0d0*x61
      x105 = x103*x104
      x106 = 2.28942848510666d0
      x107 = x106*x63
      x108 = 0.817704266774463d0*x107
      x109 = x33**2
      x110 = 1d0/x33
      x111 = x110**0.666666666666667d0
      x112 = 0.0524148278841779d0*x11
      x113 = x110**0.333333333333333d0
      x114 = x113*x5
      x115 = x111*x112 + 0.494402081358784d0*x114 + 1.0d0
      x116 = 1d0/x115
      x117 = x109*x116
      x118 = 1d0/x111
      x119 = 0.0259335011650457d0*x114
      x120 = x118*(-x119 + 1.0d0)
      x121 = x117*x120
      x122 = x108*x121
      x123 = x34**2
      x124 = 1d0/x34
      x125 = x124**0.666666666666667d0
      x126 = x124**0.333333333333333d0
      x127 = x126*x5
      x128 = x112*x125 + 0.494402081358784d0*x127 + 1.0d0
      x129 = 1d0/x128
      x130 = x123*x129
      x131 = 0.0259335011650457d0*x127
      x132 = -x131 + 1.0d0
      x133 = 1d0/x125
      x134 = x108*x133
      x135 = x132*x134
      x136 = x130*x135
      x137 = x75*(x105*x67 + x122*x9 + x136*x9)
      x138 = 0.00111534778586481d0*x80
      x139 = x137*x138
      x140 = 4.0d0*x76*x92
      x141 = x140*(x100*x74 + x139)
      x142 = 0.0472353356922751d0*mu**8
      x143 = x142*x53
      x144 = rho_c**(-2.66666666666667d0)
      x145 = 0.267683468607554d0*x144
      x146 = 0.148394183600699d0
      x147 = x73 - 1.0d0
      x148 = x147*x61
      x149 = x146*x148
      x150 = 0.0167302167879722d0*x149*x80
      x151 = -x150
      x152 = rho_c**(-2.0d0)
      x153 = 0.101321183642338d0
      x154 = 0.526297323276602d0*x153
      x155 = x152*x154
      x156 = 4.0d0*mu**6
      x157 = 0.13157433081915d0*x148
      x158 = x68*x70
      x159 = x157*x158
      x160 = -x159
      x161 = x107*(x33**2.66666666666667d0 + x34**2.66666666666667d0)
      x162 = 0.817704266774463d0*x161
      x163 = 0.558025705063192d0*x11 - 0.352521395009435d0*x5
      x164 = exp(-0.49698248213959023d0*x5)
      x165 = x163*x164*x7
      x166 = x165*x61
      x167 = 10.9027235569928d0*x166
      x168 = 0.00139418473233101d0*x146
      x169 = rho_c**(-1.0d0)*x168
      x170 = x169*(x122 + x136 - x162 + x167)
      x171 = 1.55214407110551d0*x66
      x172 = x171*x53
      x173 = 4.0d0*mu**4
      x174 = -x141 + x143*x145 + x156*(x151 + x155*x53) + x173*(x160 - x
     &170 + x172) - x82 - x98
      x175 = x174*x57
      x176 = 0.25d0*x175
      x177 = x54*(-x176 + x53)
      x178 = x177**2.78d0
      x179 = rho_c**(-2.33333333333333d0)
      x180 = 14.4549425392770d0
      x181 = x179*x180
      x182 = 0.0115661327577615d0*x181
      x183 = x178*x182
      x184 = x60 - 1.0d0
      x185 = x184*x73
      x186 = x78*x81
      x187 = x29*(x0 - 1.0d0)
      x188 = -x21 + x27
      x189 = x188*x40
      x190 = x189 + x52
      x191 = x142*x145
      x192 = -x122 - x136 + x162 - x167
      x193 = x140*(x100*x185 - x139) + x156*(x151 + x155*x190) + x173*(x
     &160 + x169* x192 + x171*x190) + x185*x186 + x187*x97 + x190*x191
      x194 = x193*x57
      x195 = 0.25d0*x194
      x196 = x190 - x195
      x197 = x33**0.666666666666667d0 + x34**0.666666666666667d0
      x198 = x197**3
      x199 = 1d0/x198
      x200 = 8.0d0*x18*x199
      x201 = exp(-x196*x200)
      x202 = x201 - 1.0d0
      x203 = x2/x202
      x204 = x197**2
      x205 = 1d0/x204
      x206 = gamma_cc*x205
      x207 = x203*x206
      x208 = x183*x207 + 1.0d0
      x209 = 208.945363813799d0
      x210 = x177**5.56d0
      x211 = x209*x210
      x212 = rho_c**(-4.66666666666667d0)
      x213 = x212/x1**2
      x214 = x213/x202**2
      x215 = 0.000133775426970164d0*gamma_cc**2/x197**4
      x216 = gamma_cc/(x208 + x211*x214*x215)
      x217 = x205*x216
      x218 = x183*x2*x208*x217 + 1.0d0
      x219 = x30*log(x218)
      x220 = 0.125d0*x198
      x221 = x42 - x51
      x222 = x221 + x41
      x223 = x176 + x222
      x224 = x141 + x156*(x150 + x155*x222) + x173*(x159 + x170 - x172) 
     &+ x191*x222 + x82 + x98
      x225 = x1*x65/x180
      x226 = x225*x24
      x227 = x4*x65
      x228 = x227*x46
      x229 = x228*x47
      x230 = x46*x48
      x231 = x37/rho_c**5
      x232 = x230*x231
      x233 = rho_s*x58
      x234 = x34**0.333333333333333d0
      x235 = x33**0.333333333333333d0
      x236 = x234 - x235
      x237 = x45*x49
      x238 = x236*x237
      x239 = x233*x238
      x240 = x8*x80
      x241 = rho_c**(-1.5d0)*x12
      x242 = rho_c**(-1.16666666666667d0)*x14
      x243 = (1.08651697314076d0*x227 + 0.27127533634502d0*x240 + 0.7093
     &61408239834d0 *x241 + 1.20668365571947d0*x242)/(x22**2*(x23 + 2.0d
     &0))
      x244 = x243*x25
      x245 = x35*(1.09726826998169d0*x227 + 0.273350047299742d0*x240 + 0
     &.381163760967645d0*x241 + 1.64535495376155d0*x242)/(x43**2*x44)
      x246 = x245*x49
      x247 = x28*x30
      x248 = rho_s**5/rho_c**6
      x249 = x236*x248
      x250 = x247*x249
      x251 = x231*x35
      x252 = x247*x251
      x253 = x6*(1.87699471636596d0*x227 + 0.344044309698576d0*x240 + 1.
     &45760735710959d0*x241 + 2.24298561906574d0*x242)/(x16**2*x19)
      x254 = 0.062230323235858d0*x20*x225
      x255 = x243*x26
      x256 = 0.129439556896076d0*x226
      x257 = -x255 + x256
      x258 = x39*(x253 - x254 + x257)
      x259 = x240*x55/x56**5
      x260 = rho_c**(-4.66666666666667d0)
      x261 = x59*x73
      x262 = 0.17845564573837d0*x78
      x263 = x260*x261*x262
      x264 = rho_c**(-2.33333333333333d0)
      x265 = x264*x64
      x266 = 0.00168899541983155d0*x265
      x267 = x152*x71
      x268 = 0.045088146776381d0*x240
      x269 = 0.00627239743302441d0*x227
      x270 = x61*x62
      x271 = x270*(x266 - x267 + x268 + x269)
      x272 = x186*x271
      x273 = rho_c**(-3.0d0)
      x274 = 0.00116228665296198d0*x273*x77
      x275 = x274*x74
      x276 = 0.148713038115308d0*x144
      x277 = x276*x79
      x278 = x33**(-0.333333333333333d0)
      x279 = x34**(-0.333333333333333d0)
      x280 = x278 - x279
      x281 = rho_s*x280
      x282 = x30*x85
      x283 = 2.0d0*x96
      x284 = x282*x283
      x285 = x281*x284*x58
      x286 = rho_c**(-3.66666666666667d0)
      x287 = 0.713822582953479d0*x286
      x288 = x143*x287
      x289 = 1.85745434535825d0*x242
      x290 = x227*x90
      x291 = x241*x87
      x292 = 7.42981738143299d0*rho_c**(-2.16666666666667d0)*x14*x281*x8
     &9
      x293 = rho_s*x179
      x294 = mu*x280*x293*x4*x86
      x295 = mu/x94
      x296 = x295*(54.281640924821d0*rho_c**(-2.5d0)*x12*x281*x55*x93 - 
     &x289 - 9.02445731974005d0*x290 - 13.5704102312052d0*x291 + x292 + 
     &36.0978292789602d0*x294 + x95*(x289 + 4.17757235705837d0*x290 - x2
     &92 - 16.7102894282335d0*x294))
      x297 = x282*x296
      x298 = 4.0d0*x251
      x299 = 2.56488140124205d0*x236
      x300 = x248*x299
      x301 = 0.0790071588102608d0*x230
      x302 = x231*x301
      x303 = 0.000665486074881265d0*x229
      x304 = 0.58482233974552d0*x246
      x305 = 0.0506609980493537d0*x237
      x306 = x236*x305
      x307 = x233*x306
      x308 = x257 + x302 - x303 + x304 + x307
      x309 = x191*(x247*x298 - x247*x300 - x258 + x308)
      x310 = 24.0d0*x103
      x311 = x152*x310*x59
      x312 = 2.41662179562687d0*rho_c**(-0.333333333333333d0)*x101*x102*
     &x61
      x313 = x102*x104*x67*x69*(1.49912448908652d0*x227 - 0.550321208149
     &104d0*x240)
      x314 = 1d0/x113
      x315 = x110*x293
      x316 = 0.00706864485168613d0*x106*x69
      x317 = x316*x9
      x318 = x117*x314*x317*(-x315 + x65)
      x319 = x116*x33
      x320 = rho_c**(-1.33333333333333d0)*rho_s
      x321 = x107*x320
      x322 = 2.18054471139857d0*x321
      x323 = x120*x319*x322
      x324 = rho_c**(-0.333333333333333d0)
      x325 = x107*x324
      x326 = 0.545136177849642d0*x325
      x327 = x121*x326
      x328 = 1d0/x126
      x329 = x124*x293
      x330 = x130*x317*x328*(x329 + x65)
      x331 = x129*x34
      x332 = x132*x133
      x333 = x322*x331*x332
      x334 = x130*x326*x332
      x335 = 0.034943218589452d0*rho_s*x144*x8
      x336 = 0.164800693786261d0*x4
      x337 = 0.034943218589452d0*x240
      x338 = 0.164800693786261d0*x227
      x339 = x111*x337 + x113*x338
      x340 = x108*x9/x115**2
      x341 = x120*x340
      x342 = x109*x341*(-x110*x111*x335 - x113*x315*x336 + x339)
      x343 = x125*x337 + x126*x338
      x344 = x9/x128**2
      x345 = x135*x344
      x346 = x123*x345*(x124*x125*x335 + x126*x329*x336 + x343)
      x347 = x138*x75
      x348 = 0.175432441092201d0*x152*x99
      x349 = 0.00490180588786583d0*x264
      x350 = rho_c**(-4.0d0)
      x351 = 0.350864882184401d0*x99
      x352 = 0.00185891297644135d0*x137*x144 - x261*x350*x351
      x353 = x140*(x100*x271 - x347*(x105 + x311 + x312 + x313 + x318 - 
     &x323 + x327 + x330 + x333 + x334 + x342 + x346) + x348*x74 - x349*
     &x74 + x352)
      x354 = x147*x59
      x355 = 0.0334604335759443d0*x146
      x356 = x260*x354*x355
      x357 = 0.0278836946466203d0*x144*x149
      x358 = x152*x70
      x359 = x270*(0.113935126864452d0*x227*x72 - 0.0031361987165122d0*x
     &227 - 0.0225440733881905d0*x240 - 0.000844497709915773d0*x265 + 0.
     &0047892375d0*x358)
      x360 = x355*x359*x80
      x361 = 1.0525946465532d0*x153*x190*x273
      x362 = x255 - x256
      x363 = x39*(-x253 + x254 + x362)
      x364 = x188*x30
      x365 = x298*x364
      x366 = x300*x364
      x367 = x308 + x363 - x365 + x366
      x368 = x155*x367
      x369 = x156*(x356 - x357 + x360 + x361 - x368)
      x370 = 0.263148661638301d0*x70
      x371 = x350*x354*x370
      x372 = x157*x358
      x373 = 0.263148661638301d0*x158*x359
      x374 = 0.00232364122055169d0*x146*x152*x192
      x375 = 2.06952542814068d0*x190*x265
      x376 = x164*x61
      x377 = 21.8054471139857d0*x165
      x378 = x34**1.66666666666667d0
      x379 = x33**1.66666666666667d0
      x380 = x378 - x379
      x381 = -x318 + x323 - x327 - x330 - x333 - x334 - x342 - x346
      x382 = x168*x80
      x383 = x382*(-1.80615420514536d0*x10*x163*x3*x376 + 0.545136177849
     &642d0*x161* x324 - 7.26848237132856d0*x166*x324 - x179*x377*x59 + 
     &2.18054471139857d0*x321*x380 - 10.9027235569928d0*x376*x7*x9*( 0.1
     &17507131669812d0*x227 - 0.372017136708795d0*x240) + x381)
      x384 = x171*x367
      x385 = x173*(x371 - x372 + x373 + x374 + x375 - x383 - x384)
      x386 = x34**(-0.333333333333333d0)
      x387 = x33**(-0.333333333333333d0)
      x388 = x386 - 1.0d0*x387
      x389 = x2*x206
      x390 = -x201 + 1.0d0
      x391 = x223/x222
      x392 = x209*x391**5.56d0
      x393 = x182*x391**2.78d0
      x394 = x389/x390
      x395 = -x393*x394 + 1.0d0
      x396 = 1d0/(x213*x215*x392/x390**2 + x395)
      x397 = x393*x395
      x398 = x396*x397
      x399 = x389*x398 + 1.0d0
      x400 = x30*log(x399)
      x401 = 1.46459188756152d0
      x402 = rho_c**(-3.33333333333333d0)
      x403 = x208*x402
      x404 = rho_c**(-4.33333333333333d0)*rho_s
      x405 = 1d0/x197
      x406 = -x387
      x407 = x386 + x406
      x408 = x405*x407
      x409 = 0.015421510343682d0*x408
      x410 = 8.0d0*x24*x25*x30
      x411 = 0.0790071588102608d0*x50
      x412 = -x410 + x411
      x413 = -x175 - 4.0d0*x41 + x412
      x414 = 1d0/x413
      x415 = -x263
      x416 = x57*(x272 - x275 + x277 + x285 - x288 - x297 + x309 + x353 
     &- x369 - x385 + x415)
      x417 = x413*x54
      x418 = 4.0d0*x258
      x419 = 1.35631049481572d0*x259
      x420 = x174*x419
      x421 = 16.0d0*x252
      x422 = 10.2595256049682d0*x250
      x423 = 8.0d0*x244
      x424 = 0.517758227584304d0*x226
      x425 = 0.316028635241043d0*x232
      x426 = 0.00266194429952506d0*x229
      x427 = 2.33928935898208d0*x246
      x428 = 0.202643992197415d0*x239
      x429 = -x423 + x424 + x425 - x426 + x427 + x428
      x430 = x414*(-x367*x417 - x416 - x418 - x420 + x421 - x422 + x429)
     &
      x431 = x179*x208
      x432 = 0.032153849066577d0*x431
      x433 = 1d0/x190
      x434 = x196*x433
      x435 = x434**2.78d0
      x436 = x180*x402
      x437 = 0.107950572405774d0*x436
      x438 = x180*x404
      x439 = x184*x62*(-x266 + x267 - x268 - x269)
      x440 = -x278 + x279
      x441 = x187*x85
      x442 = x283*x441
      x443 = x57*(x140*(x100*x439 - x185*x348 + x185*x349 + x347*(-x105 
     &- x311 - x312 - x313 + x381) + x352) - x142*x190*x287 + x156*(-x35
     &6 + x357 - x360 - x361 + x368) + x173*(-x371 + x372 - x373 - x374 
     &- x375 + x383 + x384) + x185*x274 - x185*x276*x78 + x186*x439 + x1
     &91*x367 + x233*x440*x442 + x296*x441 + x415)
      x444 = 4.0d0*x189
      x445 = -x194 + x412 + x444
      x446 = x433*x445
      x447 = 4.0d0*x363
      x448 = x193*x419
      x449 = 16.0d0*x364
      x450 = x251*x449
      x451 = 10.2595256049682d0*x364
      x452 = x249*x451
      x453 = 1d0/x445
      x454 = 0.128615396266308d0*x181
      x455 = x453*x454
      x456 = 1.0d0*x386
      x457 = 2.0d0*x405
      x458 = x457*(x194 + x410 - x411 - x444)
      x459 = x38 - 1.0d0
      x460 = x459*x48
      x461 = x45*x460
      x462 = x423 - x424 - x425
      x463 = exp(x200*(-x189 + x195 + x221))
      x464 = x463 - 1.0d0
      x465 = 1d0/x464
      x466 = x179*x465
      x467 = x199*x2
      x468 = 13.2006183429726d0
      x469 = x463*x466*x467*x468
      x470 = 0.0616860413747281d0*x408
      x471 = rho_c**(-5.66666666666667d0)
      x472 = x207*x211
      x473 = x199*x203
      x474 = 0.00142693788768175d0*x407
      x475 = x406 + x456
      x476 = x445*x457
      x477 = x233*x475*x476 + x416 + x418 + x420 - x421 + x422 + x426 - 
     &x427 - x428 + x462
      x478 = x179*x201*x468*x473
      x479 = 4.41396426734162d0/x197**5
      x480 = x212*x472
      x481 = 0.00289153318944038d0*x431
      x482 = x197/x399
      x483 = x178*x216
      x484 = 0.125d0*rho_c
      x485 = rho_s**3
      x486 = x301*x485
      x487 = x247*x299
      x488 = x36*x485
      x489 = x247*x35
      x490 = 4.0d0*x489
      x491 = rho_s*x73
      x492 = x262*x286*x491
      x493 = x280*x31
      x494 = 7.42981738143299d0*x242
      x495 = 36.0978292789602d0*x290 + 54.281640924821d0*x291 + x494
      x496 = x95*(16.7102894282335d0*x290 + x494)
      x497 = x295*x83
      x498 = rho_c**(-3)
      x499 = x486*x498
      x500 = -x499
      x501 = x485*x498
      x502 = -x306 + x38*x487 - x490*x501 + x500
      x503 = 0.267683468607554d0*x142*x286
      x504 = rho_s*x147
      x505 = x286*x355*x504
      x506 = x154*x273
      x507 = x273*x351*x491
      x508 = x10*x316
      x509 = -x314*x319*x508 + x328*x331*x508
      x510 = rho_s*x310*x68 + x509
      x511 = x118*(x119 - 1.0d0)
      x512 = 2.18054471139857d0*x325
      x513 = x319*x512
      x514 = x131 - 1.0d0
      x515 = x331*x512
      x516 = x33*x339
      x517 = x34*x343
      x518 = -x133*x514*x515 - x134*x344*x514*x517 + x340*x511*x516 + x5
     &11*x513
      x519 = x273*x370*x504
      x520 = 1.55214407110551d0*x265
      x521 = 2.18054471139857d0*x325
      x522 = x320*x377 + x509
      x523 = x57*(x140*(x347*(x510 + x518) + x507) + x156*(x502*x506 + x
     &505) + x173*( x382*(-x380*x521 + x518 + x522) + x502*x520 + x519) 
     &- x284*x493 + x30*x497*(x280*x495 + x440*x496) + x492 + x502*x503)
     &
      x524 = 0.316028635241043d0*x230*x488
      x525 = -x524
      x526 = 0.202643992197415d0*x31
      x527 = x238*x526
      x528 = 10.2595256049682d0*x231*x236*x247
      x529 = 16.0d0*x488*x489
      x530 = -x234 + x235
      x531 = x305*x530
      x532 = 2.56488140124205d0*x364*x38*x530
      x533 = 4.0d0*x35*x364*x501
      x534 = x500 + x531 + x532 + x533
      x535 = x414*(-x31*x417*x534 - x523 + x525 - x527 + x528 - x529)
      x536 = x436*x470
      x537 = x31*x388
      x538 = x434**5.56d0
      x539 = gamma_cc*x538
      x540 = x209*x465
      x541 = x526*x530
      x542 = x231*x451*x530
      x543 = x35*x449*x488
      x544 = -x120*x513 + x332*x515 - x341*x516 + x345*x517
      x545 = x57*(x140*(x347*(x510 + x544) + x507) + x156*(x505 + x506*x
     &534) + x173*( x382*(x521*(-x378 + x379) + x522 + x544) + x519 + x5
     &20*x534) + x187*x440*x497*(x495 - x496) + x442*x493 + x492 + x503*
     &x534)
      x546 = x237*x541 + x31*x446*(x499 - x531 - x532 - x533) + x525 + x
     &542 + x543 - x545
      x547 = x458*x537 + x461*x541 + x524 - x542 - x543 + x545
      E = -rho_c*(-x219*x220 + x223)
      d1E(1) = x220*x400 + 0.25d0*x224*x57 + x484*(2.0d0*x204*x233*x388*
     &x400 + 2.71262098963145d0*x224*x259 + 1.03551645516861d0*x226 - 0.
     &00532388859905012d0*x229 + 0.632057270482087d0*x232 + 0.4052879843
     &9483d0*x239 - 16.0d0*x244 + 4.67857871796416d0*x246 - 20.519051209
     &9364d0*x250 + 32.0d0*x252 - 8.0d0*x258 - x401*x482* x483*(-x203*x2
     &17*x481*(gamma_cc*rho_c**(-6.66666666666667d0)* rho_s*x211*x473*x4
     &74 + gamma_cc*x201*x210*x214*x477*x479 - x178* x430*x454 + x178*x4
     &37 + x178*x438*x470 + x178*x477*x478 - 0.00297516549581645d0*x430*
     &x480 + 0.00249714130344307d0*x471*x472 ) + x208*x404*x409 + 0.0028
     &9153318944038d0*x389*x435*x466*( -0.0616860413747281d0*x405*x438*(
     &-x386 + x387) + x437 - x455*( x429 - x443 + x446*(-x302 + x303 - x
     &304 - x307 + x362 - x363 + x365 - x366) + x447 - x448 - x450 + x45
     &2) + x469*( -0.00266194429952506d0*x228*x459 + 0.202643992197415d0
     &*x233*x236* x461 + x233*x458*(x387 - x456) + 2.33928935898208d0*x2
     &45*x460 + x443 - x447 + x448 + x450 - x452 + x462)) + 0.0269876431
     &014436d0* x403 - x430*x432) + 2.0d0*x57*(x263 - x272 + x275 - x277
     & - x285 + x288 + x297 - x309 - x353 + x369 + x385)) + x53
      d1E(2) = -rho_c*(-0.125d0*x197*x216*x401*(x178*x403*x409 + x178*x4
     &32*x535 + 0.00289153318944038d0*x179*x207*x210*(x454*x535 - x478*(
     &-x476* x537 + x523 + x524 + x527 - x528 + x529) + x536) - x2*x205*
     &x465* x481*x483*(0.00297516549581645d0*x212*x389*x453*x538*x540*x5
     &46 - x213*x463*x479*x539*x547/x464**2 + x435*x455*x546 - x435*x469
     &* x547 + x435*x536 + x467*x471*x474*x539*x540))/x218 + 0.25d0*x204
     &* x219*x31*x475 - x231*x487 + x306*x31 + x36*x486 + x488*x490 + 0.
     &25d0*x523)
      d1E(3) = x29*x396*x482*x484*(-x207*x398*(x183 + 0.0002675508539403
     &28d0*x480) - 0.000133775426970164d0*x212*x392*x394 + x397)
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_SPIN_PBE_GWS_ERF(rho_c, rho_s, gamma_cc, mu
     &, E, d1E, d2E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, rho_s, gamma_cc, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549, x550, x551, x552, x553, x554, x555
     &, x556, x557, x558, x559, x560, x561, x562, x563, x564, x565, x566
     &, x567, x568, x569, x570, x571, x572, x573, x574, x575, x576, x577
     &, x578, x579, x580, x581, x582, x583, x584, x585, x586, x587, x588
     &, x589, x590, x591, x592, x593, x594, x595, x596, x597, x598, x599
     &, x600, x601, x602, x603, x604, x605, x606, x607, x608, x609, x610
     &, x611, x612, x613, x614, x615, x616, x617, x618, x619, x620, x621
     &, x622, x623, x624, x625, x626, x627, x628, x629, x630, x631, x632
     &, x633, x634, x635, x636, x637, x638, x639, x640, x641, x642, x643
     &, x644, x645, x646, x647, x648, x649, x650, x651, x652, x653, x654
     &, x655, x656, x657, x658, x659, x660, x661, x662, x663, x664, x665
     &, x666, x667, x668, x669, x670, x671, x672, x673, x674, x675, x676
     &, x677, x678, x679, x680, x681, x682, x683, x684, x685, x686, x687
     &, x688, x689, x690, x691, x692, x693, x694, x695, x696, x697, x698
     &, x699, x700, x701, x702, x703, x704, x705, x706, x707, x708, x709
     &, x710, x711, x712, x713, x714, x715, x716, x717, x718, x719, x720
     &, x721, x722, x723, x724, x725, x726, x727, x728, x729, x730, x731
     &, x732, x733, x734, x735, x736, x737, x738, x739, x740, x741, x742
     &, x743, x744, x745, x746, x747, x748, x749, x750, x751, x752, x753
     &, x754, x755, x756, x757, x758, x759, x760, x761, x762, x763, x764
     &, x765, x766, x767, x768, x769, x770, x771, x772, x773, x774, x775
     &, x776, x777, x778, x779, x780, x781, x782, x783, x784, x785, x786
     &, x787, x788, x789, x790, x791, x792, x793, x794, x795, x796, x797
     &, x798, x799, x800, x801, x802, x803, x804, x805, x806, x807, x808
     &, x809, x810, x811, x812, x813, x814, x815, x816, x817, x818, x819
     &, x820, x821, x822, x823, x824, x825, x826, x827, x828, x829, x830
     &, x831, x832, x833, x834, x835, x836, x837, x838, x839, x840, x841
     &, x842, x843, x844, x845, x846, x847, x848, x849, x850, x851, x852
     &, x853, x854, x855, x856, x857, x858, x859, x860, x861, x862, x863
     &, x864, x865, x866, x867, x868, x869, x870, x871, x872, x873, x874
     &, x875, x876, x877, x878, x879, x880, x881, x882, x883, x884, x885
     &, x886, x887, x888, x889, x890, x891, x892, x893, x894, x895, x896
     &, x897, x898, x899, x900, x901, x902, x903, x904, x905, x906, x907
     &, x908, x909, x910, x911, x912, x913, x914, x915, x916, x917, x918
     &, x919, x920, x921, x922, x923, x924, x925, x926, x927, x928, x929
     &, x930, x931, x932, x933, x934, x935, x936, x937, x938, x939, x940
     &, x941, x942, x943, x944, x945, x946, x947, x948, x949, x950, x951
     &, x952, x953, x954, x955, x956, x957, x958, x959, x960, x961, x962
     &, x963, x964, x965, x966, x967, x968, x969, x970, x971, x972, x973
     &, x974, x975, x976, x977, x978, x979, x980, x981, x982, x983, x984
     &, x985, x986, x987, x988, x989, x990, x991, x992, x993, x994, x995
     &, x996, x997, x998, x999, x1000, x1001, x1002, x1003, x1004, x1005
     &, x1006, x1007, x1008, x1009, x1010, x1011, x1012, x1013, x1014, x
     &1015, x1016, x1017, x1018, x1019, x1020, x1021, x1022, x1023, x102
     &4, x1025, x1026, x1027, x1028, x1029, x1030, x1031, x1032, x1033, 
     &x1034, x1035, x1036, x1037, x1038, x1039, x1040, x1041, x1042, x10
     &43, x1044, x1045, x1046, x1047, x1048, x1049, x1050, x1051, x1052,
     & x1053, x1054, x1055, x1056, x1057, x1058, x1059, x1060, x1061, x1
     &062, x1063, x1064, x1065, x1066, x1067, x1068, x1069, x1070, x1071
     &, x1072, x1073, x1074, x1075, x1076, x1077, x1078, x1079, x1080, x
     &1081, x1082, x1083, x1084, x1085, x1086, x1087, x1088, x1089, x109
     &0, x1091, x1092, x1093, x1094, x1095, x1096, x1097, x1098, x1099, 
     &x1100, x1101, x1102, x1103, x1104, x1105, x1106, x1107, x1108, x11
     &09, x1110, x1111, x1112, x1113, x1114, x1115, x1116, x1117, x1118,
     & x1119, x1120, x1121, x1122, x1123, x1124, x1125, x1126, x1127, x1
     &128, x1129, x1130, x1131, x1132, x1133, x1134, x1135, x1136, x1137
     &, x1138, x1139, x1140, x1141, x1142, x1143, x1144, x1145, x1146, x
     &1147, x1148, x1149, x1150, x1151, x1152, x1153, x1154, x1155, x115
     &6, x1157, x1158, x1159, x1160, x1161, x1162, x1163, x1164, x1165, 
     &x1166, x1167, x1168, x1169, x1170, x1171, x1172, x1173, x1174, x11
     &75, x1176, x1177, x1178, x1179, x1180, x1181, x1182, x1183, x1184,
     & x1185, x1186, x1187, x1188, x1189, x1190, x1191, x1192, x1193, x1
     &194, x1195, x1196, x1197, x1198, x1199, x1200, x1201, x1202, x1203
     &, x1204, x1205, x1206, x1207, x1208, x1209, x1210, x1211, x1212, x
     &1213, x1214, x1215, x1216, x1217, x1218, x1219, x1220, x1221, x122
     &2, x1223, x1224, x1225, x1226, x1227, x1228, x1229, x1230, x1231, 
     &x1232, x1233, x1234, x1235, x1236, x1237, x1238, x1239, x1240, x12
     &41, x1242, x1243, x1244, x1245, x1246, x1247, x1248, x1249, x1250,
     & x1251, x1252, x1253, x1254, x1255, x1256, x1257, x1258, x1259, x1
     &260, x1261, x1262, x1263, x1264, x1265, x1266, x1267, x1268, x1269
     &, x1270, x1271, x1272, x1273, x1274, x1275, x1276, x1277, x1278, x
     &1279, x1280, x1281, x1282, x1283, x1284, x1285, x1286, x1287, x128
     &8, x1289, x1290, x1291, x1292, x1293, x1294, x1295, x1296, x1297, 
     &x1298, x1299, x1300, x1301, x1302, x1303, x1304, x1305, x1306, x13
     &07, x1308, x1309, x1310, x1311, x1312, x1313, x1314, x1315, x1316,
     & x1317, x1318, x1319, x1320, x1321, x1322, x1323, x1324, x1325, x1
     &326, x1327, x1328, x1329, x1330, x1331, x1332, x1333, x1334, x1335
     &, x1336, x1337, x1338, x1339, x1340, x1341, x1342, x1343, x1344, x
     &1345, x1346, x1347, x1348, x1349, x1350, x1351, x1352, x1353, x135
     &4, x1355, x1356, x1357, x1358, x1359, x1360, x1361, x1362, x1363, 
     &x1364, x1365, x1366, x1367, x1368, x1369, x1370, x1371, x1372, x13
     &73, x1374, x1375, x1376, x1377, x1378, x1379, x1380, x1381, x1382,
     & x1383, x1384, x1385, x1386, x1387, x1388, x1389, x1390, x1391, x1
     &392, x1393, x1394, x1395, x1396, x1397, x1398, x1399, x1400, x1401
     &, x1402, x1403, x1404, x1405, x1406, x1407, x1408, x1409, x1410, x
     &1411, x1412, x1413, x1414, x1415, x1416, x1417, x1418, x1419, x142
     &0, x1421, x1422, x1423, x1424, x1425, x1426, x1427, x1428, x1429, 
     &x1430, x1431, x1432, x1433, x1434, x1435, x1436, x1437, x1438, x14
     &39, x1440, x1441, x1442, x1443, x1444, x1445, x1446, x1447, x1448,
     & x1449, x1450, x1451, x1452, x1453, x1454, x1455, x1456, x1457, x1
     &458, x1459, x1460, x1461, x1462, x1463, x1464, x1465, x1466, x1467
     &, x1468, x1469, x1470, x1471, x1472, x1473, x1474, x1475, x1476, x
     &1477, x1478, x1479, x1480, x1481, x1482, x1483, x1484, x1485, x148
     &6, x1487, x1488, x1489, x1490, x1491, x1492, x1493, x1494, x1495, 
     &x1496, x1497, x1498, x1499, x1500, x1501, x1502, x1503, x1504, x15
     &05, x1506, x1507, x1508, x1509, x1510, x1511, x1512, x1513, x1514,
     & x1515, x1516, x1517, x1518, x1519, x1520, x1521, x1522, x1523, x1
     &524, x1525, x1526, x1527, x1528, x1529, x1530, x1531, x1532, x1533
     &, x1534, x1535, x1536, x1537, x1538, x1539, x1540, x1541, x1542, x
     &1543, x1544, x1545, x1546, x1547, x1548, x1549, x1550, x1551, x155
     &2, x1553, x1554, x1555, x1556, x1557, x1558, x1559, x1560, x1561, 
     &x1562, x1563, x1564, x1565, x1566, x1567, x1568, x1569, x1570, x15
     &71, x1572, x1573, x1574, x1575, x1576, x1577, x1578, x1579, x1580,
     & x1581, x1582, x1583, x1584, x1585, x1586, x1587, x1588, x1589, x1
     &590, x1591, x1592, x1593, x1594, x1595, x1596, x1597, x1598, x1599
     &, x1600, x1601, x1602, x1603, x1604, x1605, x1606, x1607, x1608, x
     &1609, x1610, x1611, x1612, x1613, x1614, x1615, x1616, x1617, x161
     &8, x1619, x1620, x1621, x1622, x1623, x1624, x1625, x1626, x1627, 
     &x1628, x1629, x1630, x1631, x1632, x1633, x1634, x1635, x1636, x16
     &37, x1638, x1639, x1640, x1641, x1642, x1643, x1644, x1645, x1646,
     & x1647, x1648, x1649, x1650, x1651, x1652, x1653, x1654, x1655, x1
     &656, x1657, x1658, x1659, x1660, x1661, x1662, x1663, x1664, x1665
     &, x1666, x1667, x1668, x1669, x1670, x1671, x1672, x1673, x1674, x
     &1675, x1676, x1677, x1678, x1679, x1680, x1681, x1682, x1683, x168
     &4, x1685, x1686, x1687, x1688, x1689, x1690, x1691, x1692, x1693, 
     &x1694, x1695, x1696, x1697, x1698, x1699, x1700, x1701, x1702, x17
     &03, x1704, x1705, x1706, x1707, x1708, x1709, x1710, x1711, x1712,
     & x1713, x1714, x1715, x1716, x1717, x1718, x1719, x1720, x1721, x1
     &722, x1723, x1724, x1725, x1726, x1727, x1728, x1729, x1730, x1731
     &, x1732, x1733, x1734, x1735, x1736, x1737, x1738, x1739, x1740, x
     &1741, x1742, x1743, x1744, x1745, x1746, x1747, x1748, x1749, x175
     &0, x1751, x1752, x1753, x1754, x1755, x1756, x1757, x1758, x1759, 
     &x1760, x1761, x1762, x1763, x1764, x1765, x1766, x1767, x1768, x17
     &69, x1770, x1771, x1772, x1773, x1774
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 0.693147180559945d0
      x1 = -x0 + 1.0d0
      x2 = 1d0/x1
      x3 = 1d0/rho_c
      x4 = rho_s*x3
      x5 = x4 + 1.0d0
      x6 = -x4 + 1.0d0
      x7 = x5**0.666666666666667d0 + x6**0.666666666666667d0
      x8 = x7**2
      x9 = 1d0/x8
      x10 = gamma_cc*x9
      x11 = x10*x2
      x12 = 208.945363813799d0
      x13 = rho_c**(-4.66666666666667d0)
      x14 = x12*x13
      x15 = 0.000133775426970164d0*x14
      x16 = x1**(-2)
      x17 = mu**2
      x18 = 2.14502939711103d0
      x19 = 1d0/x18
      x20 = rho_c**0.666666666666667d0
      x21 = 1d0/x20
      x22 = x19*x21
      x23 = 0.508616435555896d0*x17*x22 + 1.0d0
      x24 = x23**(-4)
      x25 = 0.0837224526465878d0
      x26 = rho_c**(-2)
      x27 = rho_s**2
      x28 = x26*x27
      x29 = x28 - 1.0d0
      x30 = 1.46459188756152d0
      x31 = 1d0/x30
      x32 = rho_c**(-0.333333333333333d0)*x31
      x33 = exp(-0.6836107611867116d0*x32)
      x34 = 4.60115111447049d0
      x35 = 1d0/x34
      x36 = rho_c**(-1.33333333333333d0)
      x37 = x35*x36
      x38 = rho_c**1.0d0
      x39 = 1d0/x38
      x40 = 3.14159265358979d0
      x41 = 1d0/x40
      x42 = 0.009578475d0*x41
      x43 = 0.0676322201645715d0*x22 + 0.0188171922990732d0*x32 + 0.0012
     &6674656487366d0*x37 - x39*x42 + 1.0d0
      x44 = x33*x43
      x45 = x29*x44
      x46 = x25*x45
      x47 = 1.41421356237310d0
      x48 = mu**5*x47
      x49 = rho_c**(-1.66666666666667d0)
      x50 = 0.0892278228691848d0*x49
      x51 = x5**0.666666666666667d0
      x52 = x6**0.666666666666667d0
      x53 = x51 + x52
      x54 = x53**3
      x55 = x53**2
      x56 = 1d0/x55
      x57 = x17*x56
      x58 = x32*x57
      x59 = 0.826307487110758d0
      x60 = rho_c**(-0.166666666666667d0)*x59
      x61 = 1d0/x53
      x62 = mu*x61
      x63 = 11.1447260721495d0*x60*x62 + 1.0d0
      x64 = 12.5327170711751d0*x58 + x63
      x65 = 1d0/x64
      x66 = mu**3
      x67 = 1d0/x54
      x68 = 0.564189583547756d0
      x69 = rho_c**(-0.5d0)*x68
      x70 = 27.0733719592201d0*x58 + x63 + 27.1408204624105d0*x66*x67*x6
     &9
      x71 = x65*x70
      x72 = log(x71)
      x73 = x54*x72
      x74 = 9.86960440108936d0
      x75 = 1d0/x74
      x76 = x75*(x0 - 1.0d0)
      x77 = 0.179587122125167d0
      x78 = x44*x77
      x79 = 0.175432441092201d0*x39
      x80 = x78*x79
      x81 = 0.825481812223657d0*x22 - 4.49737346725955d0*x32
      x82 = -x28 + 1.0d0
      x83 = exp(-0.28165369188898165d0*x32)
      x84 = x40*x83
      x85 = x82*x84
      x86 = 12.0d0*x85
      x87 = x81*x86
      x88 = 2.28942848510666d0
      x89 = x34*x88
      x90 = 0.817704266774463d0*x89
      x91 = x5**2
      x92 = 1d0/x5
      x93 = x92**0.333333333333333d0
      x94 = x32*x93
      x95 = 0.0259335011650457d0*x94
      x96 = -x95 + 1.0d0
      x97 = x92**0.666666666666667d0
      x98 = 0.0524148278841779d0*x22
      x99 = 0.494402081358784d0*x94 + x97*x98 + 1.0d0
      x100 = 1d0/x99
      x101 = 1d0/x97
      x102 = x100*x101
      x103 = x102*x96
      x104 = x103*x91
      x105 = x104*x90
      x106 = x6**2
      x107 = 1d0/x6
      x108 = x107**0.333333333333333d0
      x109 = x108*x32
      x110 = 0.0259335011650457d0*x109
      x111 = -x110 + 1.0d0
      x112 = x107**0.666666666666667d0
      x113 = 0.494402081358784d0*x109 + x112*x98 + 1.0d0
      x114 = 1d0/x113
      x115 = 1d0/x112
      x116 = x114*x115
      x117 = x111*x116
      x118 = x106*x117
      x119 = x118*x90
      x120 = x25*(x105*x20 + x119*x20 + x38*x87)
      x121 = 0.00111534778586481d0*x49
      x122 = x120*x121
      x123 = x47*x66
      x124 = 4.0d0*x123
      x125 = 0.186690969707574d0*x32 + 1.0d0
      x126 = 0.516066464547863d0*x22 + 5.63098414909788d0*x32 + 13.45791
     &37143944d0* x60 + 2.91521471421918d0*x69
      x127 = x2*x74
      x128 = 1.0d0 + x127/x126
      x129 = log(x128)
      x130 = x125*x129
      x131 = 0.406913004517529d0*x22 + 3.25955091942229d0*x32 + 7.240101
     &93431683d0* x60 + 1.41872281647967d0*x69
      x132 = x127/x131
      x133 = log(0.5d0*x132 + 1.0d0)
      x134 = 0.194159335344114d0*x32 + 1.0d0
      x135 = 2.0d0*x134
      x136 = x133*x135
      x137 = -x130 + x136
      x138 = x1*x75
      x139 = 1.92366105093154d0*x5**1.33333333333333d0 + 1.9236610509315
     &4d0*x6** 1.33333333333333d0 - 3.84732210186307d0
      x140 = rho_c**(-4)
      x141 = rho_s**4
      x142 = x140*x141
      x143 = x139*x142
      x144 = x138*x143
      x145 = x137*x144
      x146 = x136*x138
      x147 = 0.410025070949612d0*x22 + 3.29180480994506d0*x32 + 9.872129
     &72256927d0* x60 + 0.76232752193529d0*x69
      x148 = 1.0d0 + 29.6085746432167d0/x147
      x149 = log(x148)
      x150 = x139*x149
      x151 = -x142 + 1.0d0
      x152 = 0.101077332976288d0*x32 + 1.0d0
      x153 = x151*x152
      x154 = x150*x153
      x155 = 0.0197517897025652d0*x154
      x156 = -x146 + x155
      x157 = x145 + x156
      x158 = 0.0472353356922751d0*mu**8
      x159 = rho_c**(-2.66666666666667d0)
      x160 = 0.267683468607554d0*x159
      x161 = x158*x160
      x162 = 0.148394183600699d0
      x163 = x44 - 1.0d0
      x164 = x162*x163
      x165 = x164*x82
      x166 = 0.0167302167879722d0*x165*x49
      x167 = -x166
      x168 = rho_c**(-2.0d0)
      x169 = 0.101321183642338d0
      x170 = 0.526297323276602d0*x169
      x171 = x168*x170
      x172 = mu**6
      x173 = 4.0d0*x172
      x174 = x163*x82
      x175 = 0.13157433081915d0*x174
      x176 = x39*x41
      x177 = x175*x176
      x178 = -x177
      x179 = x89*(x5**2.66666666666667d0 + x6**2.66666666666667d0)
      x180 = 0.817704266774463d0*x179
      x181 = exp(-0.49698248213959023d0*x32)
      x182 = x18*x181
      x183 = 0.558025705063192d0*x22 - 0.352521395009435d0*x32
      x184 = x183*x82
      x185 = x182*x184
      x186 = 10.9027235569928d0*x185
      x187 = -x105 - x119 + x180 - x186
      x188 = 0.00139418473233101d0*x162
      x189 = rho_c**(-1.0d0)*x188
      x190 = 1.55214407110551d0*x37
      x191 = mu**4
      x192 = 4.0d0*x191
      x193 = x124*(-x122 + x29*x80) + x157*x161 + x173*(x157*x171 + x167
     &) + x192*( x157*x190 + x178 + x187*x189) + x46*x48*x50 + x73*x76
      x194 = x193*x24
      x195 = 0.25d0*x194
      x196 = x157 - x195
      x197 = x7**3
      x198 = 1d0/x197
      x199 = x127*x198
      x200 = 8.0d0*x199
      x201 = exp(-x196*x200)
      x202 = x201 - 1.0d0
      x203 = x202**(-2)
      x204 = x16*x203
      x205 = gamma_cc**2
      x206 = x130 - x136
      x207 = x144*x206
      x208 = x156 - x207
      x209 = 1d0/x208
      x210 = x44*x82
      x211 = x210*x25
      x212 = x211*x48
      x213 = x212*x50
      x214 = x138*x73
      x215 = x124*(x122 + x80*x82)
      x216 = x158*x208
      x217 = x105 + x119 - x180 + x186
      x218 = x189*x217
      x219 = x190*x208
      x220 = x160*x216 + x173*(x167 + x171*x208) + x192*(x178 - x218 + x
     &219) - x213 - x214 - x215
      x221 = x220*x24
      x222 = 0.25d0*x221
      x223 = x208 - x222
      x224 = x209*x223
      x225 = x224**5.56d0
      x226 = x7**(-4)
      x227 = x225*x226
      x228 = x205*x227
      x229 = x204*x228
      x230 = rho_c**(-2.33333333333333d0)
      x231 = 14.4549425392770d0
      x232 = x230*x231
      x233 = x224**2.78d0
      x234 = 0.0115661327577615d0*x233
      x235 = x232*x234
      x236 = 1d0/x202
      x237 = x2*x236
      x238 = x10*x237
      x239 = x235*x238 + 1.0d0
      x240 = x15*x229 + x239
      x241 = 1d0/x240
      x242 = x235*x239
      x243 = x241*x242
      x244 = x11*x243 + 1.0d0
      x245 = log(x244)
      x246 = x138*x245
      x247 = 0.125d0*x197
      x248 = x146 - x155
      x249 = x207 + x248
      x250 = x222 + x249
      x251 = x161*x249 + x173*(x166 + x171*x249) + x192*(x177 + x218 - x
     &219) + x213 + x214 + x215
      x252 = x1/x231
      x253 = x133*x252
      x254 = x253*x36
      x255 = x31*x36
      x256 = x150*x255
      x257 = x151*x256
      x258 = rho_c**(-5)
      x259 = x141*x258
      x260 = x150*x152
      x261 = x259*x260
      x262 = x6**0.333333333333333d0
      x263 = x5**0.333333333333333d0
      x264 = x262 - x263
      x265 = x149*x153
      x266 = x264*x265
      x267 = rho_s*x26
      x268 = x266*x267
      x269 = x19*x49
      x270 = rho_c**(-1.5d0)*x68
      x271 = rho_c**(-1.16666666666667d0)*x59
      x272 = 1.08651697314076d0*x255 + 0.27127533634502d0*x269 + 0.70936
     &1408239834d0* x270 + 1.20668365571947d0*x271
      x273 = x132 + 2.0d0
      x274 = 1d0/x273
      x275 = x274/x131**2
      x276 = x272*x275
      x277 = x134*x276
      x278 = x139*x153
      x279 = 1d0/x148
      x280 = x147**(-2)
      x281 = 1.09726826998169d0*x255 + 0.273350047299742d0*x269 + 0.3811
     &63760967645d0 *x270 + 1.64535495376155d0*x271
      x282 = x279*x280*x281
      x283 = x278*x282
      x284 = rho_s**5
      x285 = rho_c**(-6)
      x286 = x284*x285
      x287 = x264*x286
      x288 = x138*x206
      x289 = x287*x288
      x290 = x139*x259
      x291 = x288*x290
      x292 = 1.87699471636596d0*x255 + 0.344044309698576d0*x269 + 1.4576
     &0735710959d0* x270 + 2.24298561906574d0*x271
      x293 = 1d0/x128
      x294 = x126**(-2)
      x295 = x125*x293*x294
      x296 = x292*x295
      x297 = 0.062230323235858d0*x36
      x298 = x129*x252
      x299 = x297*x298
      x300 = x135*x276
      x301 = 0.129439556896076d0*x36
      x302 = x253*x301
      x303 = -x300 + x302
      x304 = x296 - x299 + x303
      x305 = x143*x304
      x306 = x17/x23**5
      x307 = x269*x306
      x308 = x251*x307
      x309 = rho_c**(-4.66666666666667d0)
      x310 = x27*x309
      x311 = x25*x48
      x312 = x311*x44
      x313 = 0.17845564573837d0*x312
      x314 = x310*x313
      x315 = rho_c**(-2.33333333333333d0)
      x316 = x315*x35
      x317 = 0.00168899541983155d0*x316
      x318 = x168*x42
      x319 = 0.045088146776381d0*x269
      x320 = 0.00627239743302441d0*x255
      x321 = x317 - x318 + x319 + x320
      x322 = x33*x82
      x323 = x321*x322
      x324 = x311*x50
      x325 = x323*x324
      x326 = x210*x48
      x327 = rho_c**(-3.0d0)
      x328 = 0.0571643564037363d0
      x329 = x327*x328
      x330 = 0.0203323666368788d0*x329
      x331 = x326*x330
      x332 = x159*x25
      x333 = 0.148713038115308d0*x332
      x334 = x326*x333
      x335 = x5**(-0.333333333333333d0)
      x336 = x6**(-0.333333333333333d0)
      x337 = x335 - x336
      x338 = rho_s*x337
      x339 = x138*x55
      x340 = x339*x72
      x341 = 2.0d0*x26
      x342 = x338*x340*x341
      x343 = rho_c**(-3.66666666666667d0)
      x344 = 0.713822582953479d0*x343
      x345 = x216*x344
      x346 = x255*x62
      x347 = rho_s*x230
      x348 = mu*x56
      x349 = x31*x348
      x350 = x337*x347*x349
      x351 = 1.85745434535825d0*x271
      x352 = rho_c**(-2.16666666666667d0)*x59
      x353 = x352*x61
      x354 = x338*x353
      x355 = 7.42981738143299d0*x354
      x356 = x351 - x355
      x357 = 4.17757235705837d0*x346 - 16.7102894282335d0*x350 + x356
      x358 = x357*x71
      x359 = 9.02445731974005d0*x346
      x360 = x270*x57
      x361 = 13.5704102312052d0*x360
      x362 = 36.0978292789602d0*x350
      x363 = rho_c**(-2.5d0)*x68
      x364 = x17*x363
      x365 = x338*x67
      x366 = 54.281640924821d0*x364*x365
      x367 = -x351 + x355 - x359 - x361 + x362 + x366
      x368 = x358 + x367
      x369 = 1d0/x70
      x370 = mu*x369
      x371 = x368*x370
      x372 = x339*x371
      x373 = 4.0d0*x290
      x374 = 2.56488140124205d0*x287
      x375 = 0.0790071588102608d0*x261
      x376 = 0.000665486074881265d0*x257
      x377 = 0.58482233974552d0*x283
      x378 = 0.0506609980493537d0*x265
      x379 = x264*x378
      x380 = x267*x379
      x381 = x303 + x375 - x376 + x377 + x380
      x382 = x288*x373 - x288*x374 - x305 + x381
      x383 = x161*x382
      x384 = 0.550321208149104d0*x269
      x385 = 1.49912448908652d0*x255
      x386 = -x384 + x385
      x387 = x38*x86
      x388 = x386*x387
      x389 = x81*x84
      x390 = 24.0d0*x389
      x391 = x27*x390
      x392 = x168*x391
      x393 = x81*x82*x83
      x394 = 2.14502939711103d0
      x395 = rho_c**(-0.333333333333333d0)*x394
      x396 = 1.12661476755593d0*x393*x395
      x397 = 0.00706864485168613d0*x20
      x398 = x347*x92
      x399 = x36 - x398
      x400 = x40*x88
      x401 = 1d0/x93
      x402 = x100*x401
      x403 = x400*x402
      x404 = x399*x403*x91
      x405 = x397*x404
      x406 = 1d0/x108
      x407 = x114*x406
      x408 = x400*x407
      x409 = x106*x408
      x410 = x107*x347
      x411 = x36 + x410
      x412 = x397*x411
      x413 = x409*x412
      x414 = rho_c**(-0.333333333333333d0)
      x415 = x414*x89
      x416 = 0.545136177849642d0*x415
      x417 = x104*x416
      x418 = x118*x416
      x419 = rho_c**(-1.33333333333333d0)
      x420 = x419*x89
      x421 = rho_s*x420
      x422 = 2.18054471139857d0*x421
      x423 = x117*x6
      x424 = x422*x423
      x425 = x99**(-2)
      x426 = x101*x425
      x427 = x426*x96
      x428 = x20*x90
      x429 = x427*x428
      x430 = x159*x19
      x431 = 0.034943218589452d0*x430
      x432 = rho_s*x92
      x433 = x432*x97
      x434 = x431*x433
      x435 = 0.164800693786261d0*x31
      x436 = x398*x93
      x437 = x435*x436
      x438 = 0.034943218589452d0*x269
      x439 = x438*x97
      x440 = 0.164800693786261d0*x255
      x441 = x440*x93
      x442 = x439 + x441
      x443 = -x434 - x437 + x442
      x444 = x443*x91
      x445 = x429*x444
      x446 = x113**(-2)
      x447 = x115*x446
      x448 = x111*x447
      x449 = x428*x448
      x450 = rho_s*x107
      x451 = x112*x450
      x452 = x108*x410
      x453 = x108*x440 + x112*x438
      x454 = x431*x451 + x435*x452 + x453
      x455 = x106*x454
      x456 = x449*x455
      x457 = x103*x5
      x458 = x422*x457
      x459 = x405 + x413 + x417 + x418 + x424 + x445 + x456 - x458
      x460 = x388 + x392 + x396 + x459 + x87
      x461 = x121*x25
      x462 = x77*x79
      x463 = 0.175432441092201d0*x168*x78
      x464 = 0.122619224952946d0
      x465 = x315*x464
      x466 = 0.0399758348639607d0*x465
      x467 = 0.00185891297644135d0*x159
      x468 = 0.350864882184401d0*x78
      x469 = rho_c**(-4.0d0)
      x470 = x27*x469
      x471 = x120*x467 - x468*x470
      x472 = x124*(-x210*x466 + x323*x462 - x460*x461 + x463*x82 + x471)
     &
      x473 = 0.0334604335759443d0*x164
      x474 = x310*x473
      x475 = x159*x162
      x476 = 0.0278836946466203d0*x174*x475
      x477 = 0.000844497709915773d0*x316
      x478 = x168*x41
      x479 = 0.0047892375d0*x478
      x480 = 0.0225440733881905d0*x269
      x481 = 0.0031361987165122d0*x255
      x482 = 0.113935126864452d0*x255*x43 - x477 + x479 - x480 - x481
      x483 = x322*x482
      x484 = 0.0334604335759443d0*x162*x49
      x485 = x483*x484
      x486 = x169*x327
      x487 = 1.0525946465532d0*x157*x486
      x488 = x300 - x302
      x489 = -x296 + x299 + x488
      x490 = x143*x489
      x491 = x137*x138
      x492 = x373*x491
      x493 = x374*x491
      x494 = x381 + x490 - x492 + x493
      x495 = x171*x494
      x496 = x173*(x474 - x476 + x485 + x487 - x495)
      x497 = 0.263148661638301d0*x163
      x498 = x27*x41
      x499 = x469*x498
      x500 = x497*x499
      x501 = x175*x478
      x502 = 0.263148661638301d0*x176
      x503 = x483*x502
      x504 = 0.00232364122055169d0*x162
      x505 = x168*x187*x504
      x506 = 2.06952542814068d0*x157*x316
      x507 = 0.545136177849642d0*x179*x414
      x508 = 7.26848237132856d0*x185*x414
      x509 = 0.117507131669812d0*x255 - 0.372017136708795d0*x269
      x510 = x182*x509
      x511 = x510*x82
      x512 = 10.9027235569928d0*x20
      x513 = x511*x512
      x514 = x182*x183
      x515 = 21.8054471139857d0*x514
      x516 = x230*x27
      x517 = x515*x516
      x518 = x181*x184
      x519 = x21*x30
      x520 = 1.80615420514536d0*x518*x519
      x521 = x6**1.66666666666667d0
      x522 = x5**1.66666666666667d0
      x523 = x89*(x521 - x522)
      x524 = rho_s*x419
      x525 = 2.18054471139857d0*x523*x524
      x526 = -x405 - x413 - x417 - x418 - x424 - x445 - x456 + x458
      x527 = x188*x49
      x528 = x527*(x507 - x508 - x513 - x517 - x520 + x525 + x526)
      x529 = x190*x494
      x530 = x192*(x500 - x501 + x503 + x505 + x506 - x528 - x529)
      x531 = x314 - x325 + x331 - x334 - x342 + x345 + x372 - x383 - x47
     &2 + x496 + x530
      x532 = x24*x531
      x533 = 2.0d0*rho_s
      x534 = x6**(-0.333333333333333d0)
      x535 = x5**(-0.333333333333333d0)
      x536 = x534 - 1.0d0*x535
      x537 = x26*x536
      x538 = x533*x537
      x539 = 1d0/x249
      x540 = x250*x539
      x541 = x540**5.56d0
      x542 = x15*x541
      x543 = -x201 + 1.0d0
      x544 = x16/x543**2
      x545 = x205*x226
      x546 = x544*x545
      x547 = x540**2.78d0
      x548 = 1d0/x543
      x549 = x547*x548
      x550 = x11*x232
      x551 = -0.0115661327577615d0*x549*x550 + 1.0d0
      x552 = x542*x546 + x551
      x553 = 1d0/x552
      x554 = x547*x551
      x555 = 0.0115661327577615d0*x554
      x556 = x232*x555
      x557 = x553*x556
      x558 = x11*x557 + 1.0d0
      x559 = log(x558)
      x560 = x138*x559
      x561 = x560*x8
      x562 = 1d0/x558
      x563 = 1.46459188756152d0
      x564 = gamma_cc*x563
      x565 = x564*x7
      x566 = x562*x565
      x567 = rho_c**(-3.33333333333333d0)
      x568 = x239*x567
      x569 = 0.0269876431014436d0*x568
      x570 = 1d0/x7
      x571 = -x535
      x572 = x534 + x571
      x573 = x570*x572
      x574 = 0.015421510343682d0*x573
      x575 = rho_c**(-4.33333333333333d0)
      x576 = x239*x575
      x577 = rho_s*x576
      x578 = x574*x577
      x579 = 4.0d0*x207
      x580 = 8.0d0*x138
      x581 = x133*x134*x580
      x582 = 0.0790071588102608d0*x154
      x583 = -x581 + x582
      x584 = -x221 - x579 + x583
      x585 = 1d0/x584
      x586 = x209*x584
      x587 = -x314
      x588 = x325 - x331 + x334 + x342 - x345 - x372 + x383 + x472 - x49
     &6 - x530 + x587
      x589 = x24*x588
      x590 = 4.0d0*x305
      x591 = 1.35631049481572d0*x307
      x592 = x220*x591
      x593 = 16.0d0*x291
      x594 = 10.2595256049682d0*x289
      x595 = 8.0d0*x277
      x596 = 0.517758227584304d0*x254
      x597 = 0.316028635241043d0*x261
      x598 = 0.00266194429952506d0*x257
      x599 = 2.33928935898208d0*x283
      x600 = 0.202643992197415d0*x268
      x601 = -x595 + x596 + x597 - x598 + x599 + x600
      x602 = -x589 - x590 - x592 + x593 - x594 + x601
      x603 = -x494*x586 + x602
      x604 = x585*x603
      x605 = 0.032153849066577d0*x230
      x606 = x239*x605
      x607 = x604*x606
      x608 = x231*x567
      x609 = 0.107950572405774d0*x608
      x610 = x231*x575
      x611 = x570*x610
      x612 = rho_s*(-x534 + x535)
      x613 = x611*x612
      x614 = 0.128615396266308d0*x232
      x615 = 4.0d0*x145
      x616 = -x194 + x583 + x615
      x617 = 1d0/x616
      x618 = -x375 + x376 - x377 - x380 + x488 - x490 + x492 - x493
      x619 = 1d0/x157
      x620 = x616*x619
      x621 = x33*(-x317 + x318 - x319 - x320)
      x622 = x29*x621
      x623 = x45*x48
      x624 = -x335 + x336
      x625 = x55*x76
      x626 = x625*x72
      x627 = -x388 - x392 - x396 + x526 - x87
      x628 = x24*(x124*(-x29*x463 + x45*x466 + x461*x627 + x462*x622 + x
     &471) - x157* x158*x344 + x161*x494 + x173*(-x474 + x476 - x485 - x
     &487 + x495) + x192*(-x500 + x501 - x503 - x505 - x506 + x528 + x52
     &9) + x26* x533*x624*x626 + x324*x622 + x330*x623 - x333*x623 + x37
     &1*x625 + x587)
      x629 = 4.0d0*x490
      x630 = x193*x591
      x631 = 16.0d0*x491
      x632 = x290*x631
      x633 = 10.2595256049682d0*x491
      x634 = x287*x633
      x635 = x601 - x628 + x629 - x630 - x632 + x634
      x636 = x618*x620 + x635
      x637 = x617*x636
      x638 = -x145 + x195 + x248
      x639 = exp(x200*x638)
      x640 = x639 - 1.0d0
      x641 = 1d0/x640
      x642 = x230*x641
      x643 = 1.0d0*x534
      x644 = x535 - x643
      x645 = x581 - x582
      x646 = x194 - x615 + x645
      x647 = x570*x646
      x648 = x26*x647
      x649 = x142 - 1.0d0
      x650 = x152*x282
      x651 = x139*x650
      x652 = 2.33928935898208d0*x651
      x653 = x149*x152
      x654 = x264*x653
      x655 = x595 - x596 - x597
      x656 = -0.00266194429952506d0*x256*x649 + 0.202643992197415d0*x267
     &*x649*x654 + x628 - x629 + x630 + x632 - x634 + x649*x652 + x655
      x657 = x533*x644*x648 + x656
      x658 = x639*x657
      x659 = x642*x658
      x660 = 142.664564503142d0
      x661 = x198*x660
      x662 = x2*x661
      x663 = 0.0925290620620922d0*x662
      x664 = x609 - 0.0616860413747281d0*x613 - x614*x637 + x659*x663
      x665 = x196*x619
      x666 = x665**2.78d0
      x667 = x642*x666
      x668 = 0.00289153318944038d0*x11
      x669 = x667*x668
      x670 = x664*x669
      x671 = x230*x238
      x672 = x225*x238
      x673 = rho_c**(-5.66666666666667d0)
      x674 = x12*x673
      x675 = 0.00249714130344307d0*x674
      x676 = 2062.20808228389d0
      x677 = x676/x7**5
      x678 = 0.00214040683152263d0*x677
      x679 = gamma_cc*x225
      x680 = x13*x679
      x681 = x570*x616
      x682 = x26*x681
      x683 = x571 + x643
      x684 = x533*x683
      x685 = x590 - x593 + x594 + x598 - x599 - x600 + x655
      x686 = x589 + x592 + x685
      x687 = x682*x684 + x686
      x688 = x201*x687
      x689 = x204*x688
      x690 = x680*x689
      x691 = x237*x572
      x692 = x679*x691
      x693 = rho_s*x692
      x694 = rho_c**(-6.66666666666667d0)
      x695 = x12*x694
      x696 = x198*x695
      x697 = 0.00142693788768175d0*x696
      x698 = x14*x672
      x699 = x604*x698
      x700 = x604*x614
      x701 = 0.0616860413747281d0*x573
      x702 = rho_s*x610
      x703 = x701*x702
      x704 = x237*x661
      x705 = 0.0925290620620922d0*x704
      x706 = x201*x230
      x707 = x687*x706
      x708 = x705*x707
      x709 = x233*x609 - x233*x700 + x233*x703 + x233*x708
      x710 = x672*x675 + x678*x690 + x693*x697 - 0.00297516549581645d0*x
     &699 + x709
      x711 = x241*x710
      x712 = 0.00289153318944038d0*x711
      x713 = x239*x671*x712
      x714 = x569 + x578 - x607 + x670 - x713
      x715 = x233*x241
      x716 = x714*x715
      x717 = x566*x716
      x718 = 0.125d0*rho_c
      x719 = rho_s**3
      x720 = x140*x719
      x721 = 0.0790071588102608d0*x260
      x722 = x720*x721
      x723 = x3*x379
      x724 = 2.56488140124205d0*x259
      x725 = x264*x288
      x726 = x724*x725
      x727 = 4.0d0*x720
      x728 = x139*x288
      x729 = x727*x728
      x730 = rho_s*x343
      x731 = x313*x730
      x732 = 2.0d0*x3
      x733 = x337*x732
      x734 = x370*x53
      x735 = 7.42981738143299d0*x271
      x736 = 36.0978292789602d0*x346 + 54.281640924821d0*x360 + x735
      x737 = x337*x736
      x738 = 16.7102894282335d0*x346 + x735
      x739 = x71*x738
      x740 = x138*(x624*x739 + x737)
      x741 = rho_c**(-3)
      x742 = x719*x741
      x743 = x721*x742
      x744 = -x743
      x745 = 2.56488140124205d0*x142
      x746 = 4.0d0*x742
      x747 = -x379 + x725*x745 - x728*x746 + x744
      x748 = x158*x343
      x749 = 0.267683468607554d0*x748
      x750 = x343*x473
      x751 = rho_s*x750
      x752 = x170*x327
      x753 = x327*x468
      x754 = rho_s*x753
      x755 = x39*x390
      x756 = x407*x6
      x757 = x21*x400
      x758 = 0.00706864485168613d0*x757
      x759 = x402*x5
      x760 = x756*x758 - x758*x759
      x761 = rho_s*x755 + x760
      x762 = x95 - 1.0d0
      x763 = x102*x762
      x764 = 2.18054471139857d0*x415
      x765 = x5*x764
      x766 = x6*x764
      x767 = x110 - 1.0d0
      x768 = x116*x767
      x769 = x428*x5
      x770 = x426*x762
      x771 = x442*x770
      x772 = x428*x6
      x773 = x447*x767
      x774 = x453*x773
      x775 = x763*x765 - x766*x768 + x769*x771 - x772*x774
      x776 = x761 + x775
      x777 = x327*x41
      x778 = x497*x777
      x779 = rho_s*x778
      x780 = 1.55214407110551d0*x316
      x781 = 2.18054471139857d0*x414
      x782 = x419*x515
      x783 = rho_s*x782 + x760
      x784 = x124*(x461*x776 + x754) + x173*(x747*x752 + x751) + x192*(x
     &527*(-x523* x781 + x775 + x783) + x747*x780 + x779) - x340*x733 + 
     &x731 + x734 *x740 + x747*x749
      x785 = x24*x784
      x786 = 0.25d0*x785
      x787 = x246*x8
      x788 = x3*x683
      x789 = 0.25d0*x787*x788
      x790 = 1d0/x244
      x791 = x241*x790
      x792 = x565*x791
      x793 = x233*x568
      x794 = -x262 + x263
      x795 = x378*x794
      x796 = x491*x794
      x797 = x745*x796
      x798 = x139*x491
      x799 = x746*x798
      x800 = x744 + x795 + x797 + x799
      x801 = x3*x800
      x802 = 0.316028635241043d0*x260
      x803 = x720*x802
      x804 = -x803
      x805 = 0.202643992197415d0*x3
      x806 = x266*x805
      x807 = 10.2595256049682d0*x259*x725
      x808 = 16.0d0*x728
      x809 = x720*x808
      x810 = -x785 + x804 - x806 + x807 - x809
      x811 = -x586*x801 + x810
      x812 = x585*x811
      x813 = x233*x606
      x814 = x230*x672
      x815 = x608*x701
      x816 = x536*x732
      x817 = x785 + x803 + x806 - x807 + x809
      x818 = -x681*x816 + x817
      x819 = x706*x818
      x820 = x614*x812 - x705*x819 + x815
      x821 = 0.00289153318944038d0*x820
      x822 = x198*x674
      x823 = x665**5.56d0
      x824 = gamma_cc*x823
      x825 = x2*x572
      x826 = x641*x825
      x827 = x824*x826
      x828 = x822*x827
      x829 = 0.00142693788768175d0*x828
      x830 = x743 - x795 - x797 - x799
      x831 = x3*x830
      x832 = x265*x794
      x833 = x805*x832
      x834 = x259*x633*x794
      x835 = x139*x631
      x836 = x720*x835
      x837 = x734*x76
      x838 = x736 - x739
      x839 = x624*x838
      x840 = x448*x453
      x841 = x427*x442
      x842 = -x103*x765 + x117*x766 - x769*x841 + x772*x840
      x843 = x761 + x842
      x844 = x89*(-x521 + x522)
      x845 = x781*x844 + x783 + x842
      x846 = x124*(x461*x843 + x754) + x173*(x751 + x752*x800) + x192*(x
     &527*x845 + x779 + x780*x800) + x626*x733 + x731 + x749*x800 + x837
     &*x839
      x847 = x24*x846
      x848 = x804 + x833 + x834 + x836 - x847
      x849 = x620*x831 + x848
      x850 = x617*x849
      x851 = x11*x641
      x852 = x823*x851
      x853 = x14*x852
      x854 = x850*x853
      x855 = 0.00297516549581645d0*x854
      x856 = x13*x678
      x857 = x640**(-2)
      x858 = x653*x794
      x859 = x803 - x834 - x836 + x847
      x860 = x649*x805*x858 + x859
      x861 = x647*x816 + x860
      x862 = x639*x861
      x863 = x824*x862
      x864 = x16*x857*x863
      x865 = x856*x864
      x866 = x666*x815
      x867 = x232*x666
      x868 = x850*x867
      x869 = 0.128615396266308d0*x868
      x870 = x663*x862
      x871 = x667*x870
      x872 = x866 + x869 - x871
      x873 = x829 + x855 - x865 + x872
      x874 = x241*x873
      x875 = x233*x239
      x876 = x230*x875
      x877 = x641*x876
      x878 = x574*x793 - x668*x874*x877 + x812*x813 + x814*x821
      x879 = 0.125d0*x878
      x880 = x792*x879
      x881 = x7*x75
      x882 = x11*x548
      x883 = 0.000267550853940328d0*x14
      x884 = x553*(-x238*x557*(x235 + x672*x883) - x542*x882 + x556)
      x885 = x881*x884
      x886 = -4.0d0*x277
      x887 = 0.258879113792152d0*x254
      x888 = 0.158014317620522d0*x261
      x889 = -0.00133097214976253d0*x257
      x890 = 0.101321996098707d0*x268
      x891 = x253*x315
      x892 = x150*x31
      x893 = rho_c**(-6.33333333333333d0)*x141*x892
      x894 = x284/rho_c**7
      x895 = x654*x894
      x896 = rho_c**(-3.33333333333333d0)
      x897 = rho_s*x896
      x898 = x149*x151*x264*x31*x897
      x899 = x31*x315
      x900 = x151*x899
      x901 = x150*x900
      x902 = x141*x285
      x903 = x260*x902
      x904 = x5**(-0.666666666666667d0)
      x905 = 0.854960467080683d0*x4
      x906 = x904*x905
      x907 = x6**(-0.666666666666667d0)
      x908 = x905*x907
      x909 = x906 + x908
      x910 = -5.1297628024841d0*x262 + 5.1297628024841d0*x263 + x909
      x911 = rho_s*x741
      x912 = x265*x910*x911
      x913 = 1d0/x563
      x914 = x276*x913
      x915 = x36*x914
      x916 = x255*x276
      x917 = rho_c**(-2.16666666666667d0)*x59
      x918 = x275*(1.06404211235975d0*x363 + 0.452125560575033d0*x430 + 
     &1.44868929752102d0*x899 + 1.40779759833938d0*x917)
      x919 = x134*x918
      x920 = x127*x272**2/(x131**4*x273**2)
      x921 = x134*x920
      x922 = x139*x151*x255*x282
      x923 = x290*x650
      x924 = x278*x279
      x925 = x280*(0.571745641451468d0*x363 + 0.455583412166236d0*x430 +
     & 1.46302435997558d0*x899 + 1.91958077938847d0*x917)
      x926 = x924*x925
      x927 = x153*x282
      x928 = x264*x267
      x929 = x927*x928
      x930 = x278*x281**2/(x147**4*x148**2)
      x931 = x272*x274*(2.17303394628153d0*x255 + 0.542550672690039d0*x2
     &69 + 1.41872281647967d0*x270 + 2.41336731143894d0*x271)/x131**3
      x932 = x134*x931
      x933 = x725*x894
      x934 = x288*x902
      x935 = x139*x934
      x936 = x281*(2.19453653996337d0*x255 + 0.546700094599483d0*x269 + 
     &0.76232752193529d0*x270 + 3.29070990752309d0*x271)/x147**3
      x937 = x924*x936
      x938 = x894*x910
      x939 = x288*x938
      x940 = x264*x304
      x941 = x286*x940
      x942 = x139*x304
      x943 = x259*x942
      x944 = 0.172586075861435d0*x891
      x945 = x292*x293
      x946 = x294*x945
      x947 = x301*x914
      x948 = 0.129439556896076d0*x916
      x949 = x135*x918
      x950 = x135*x920
      x951 = x135*x931
      x952 = x143*(-x125*x945*(3.75398943273192d0*x255 + 0.6880886193971
     &51d0*x269 + 2.91521471421918d0*x270 + 4.48597123813148d0*x271)/x12
     &6**3 + x125 *x127*x292**2/(x126**4*x128**2) + 0.062230323235858d0*
     &x255*x946 + x295*(2.18641103566438d0*x363 + 0.573407182830959d0*x4
     &30 + 2.50265962182128d0*x899 + 2.6168165555767d0*x917) + x297*x913
     &* x946 - 0.0829737643144773d0*x298*x315 + x944 - x947 - x948 - x94
     &9 - x950 + x951)
      x953 = x35*x896
      x954 = x191*x953/x23**6
      x955 = x306*x430
      x956 = x140*x27
      x957 = x1*x572*x881
      x958 = 8.0d0*x536
      x959 = x5**(-1.33333333333333d0)
      x960 = 0.333333333333333d0*x4
      x961 = x959*x960
      x962 = x6**(-1.33333333333333d0)
      x963 = x960*x962
      x964 = x961 + x963
      x965 = 6.0d0*x911
      x966 = rho_c**(-5.0d0)
      x967 = 1.3157433081915d0*x163*x498*x966
      x968 = x778*x82
      x969 = x33*x482
      x970 = 1.0525946465532d0*x499*x969
      x971 = 0.526297323276602d0*x478*x483
      x972 = x322*(-0.455740507457808d0*x255*(x477 - x479 + x480 + x481)
     & - x327*x42 + 0.0259624262672375d0*x43*x430 - 0.151913502485936d0*
     &x43*x899 + 0.0375734556469842d0*x430 + 0.00418159828868294d0*x899 
     &+ 0.00197049465647014d0*x953)
      x973 = x502*x972
      x974 = 0.00619637658813783d0*x162*x217*x327
      x975 = 4.82889266566159d0*x208*x953
      x976 = 0.00464728244110338d0*x475*(x459 - x507 + x508 + x513 + x51
     &7 + x520 - x525)
      x977 = 4.13905085628136d0*x316*x382
      x978 = 3.61230841029072d0*x181
      x979 = x183*x30*x978
      x980 = x27*x979
      x981 = x27*x567
      x982 = 5.0d0*x4
      x983 = x51*x982
      x984 = x52*x982
      x985 = x347*x89
      x986 = 0.00942485980224818d0*x414
      x987 = x404*x986
      x988 = x409*x411*x986
      x989 = 3.63424118566428d0*x103
      x990 = x89*x981
      x991 = x989*x990
      x992 = 3.63424118566428d0*x117
      x993 = x990*x992
      x994 = 0.0115260005177981d0*x315
      x995 = 0.0201705009061467d0*x567
      x996 = 0.00288150012944953d0*x896
      x997 = x27/x91
      x998 = 0.0115260005177981d0*x575
      x999 = 0.817704266774463d0*x20
      x1000 = x403*x91*x999*(x432*x995 + x432*x996 - x994 - x997*x998)
      x1001 = 0.181712059283214d0*x420
      x1002 = x1001*x104
      x1003 = x1001*x118
      x1004 = x27/x106
      x1005 = x409*x999*(x1004*x998 + x450*x995 + x450*x996 + x994)
      x1006 = x400*x756
      x1007 = x1006*x411
      x1008 = 0.0376994392089927d0*x524
      x1009 = x1007*x1008
      x1010 = x401*x425
      x1011 = x1010*x443
      x1012 = x399*x400
      x1013 = 0.0141372897033723d0*x20
      x1014 = x1011*x1012*x1013*x91
      x1015 = x406*x446
      x1016 = x1015*x454
      x1017 = x1013*x1016*x106*x400*x411
      x1018 = 1.09027235569928d0*x415
      x1019 = x1018*x427*x444
      x1020 = x1018*x448*x455
      x1021 = 1.45369647426571d0*x985
      x1022 = x1021*x457
      x1023 = 0.0582386976490866d0*x430
      x1024 = 0.219734258381682d0*x899
      x1025 = x1024*x93
      x1026 = x19*x343
      x1027 = 0.116477395298173d0*x1026
      x1028 = x31*x93
      x1029 = x1028*x432
      x1030 = 0.384534952167943d0*x567
      x1031 = 0.0549335645954204d0*x896
      x1032 = 0.0582386976490866d0*x19*x309
      x1033 = 0.219734258381682d0*x575
      x1034 = x429*x91*(-x1023*x97 - x1025 + x1027*x433 - x1028*x1033*x9
     &97 + x1029* x1030 + x1029*x1031 - x1032*x97*x997)
      x1035 = x400*x759
      x1036 = x1008*x1035*x399
      x1037 = x1021*x423
      x1038 = x1024*x108
      x1039 = x108*x31
      x1040 = x1039*x450
      x1041 = x106*x449*(x1004*x1032*x112 + x1004*x1033*x1039 + x1023*x1
     &12 + x1027* x451 + x1030*x1040 + x1031*x1040 + x1038)
      x1042 = 4.36108942279713d0*x421
      x1043 = x1042*x448*x454*x6
      x1044 = x99**(-3)
      x1045 = 0.0698864371789039d0*x430
      x1046 = 0.329601387572523d0*x31
      x1047 = 0.0698864371789039d0*x269
      x1048 = 0.329601387572523d0*x255
      x1049 = x1047*x97 + x1048*x93
      x1050 = x428*x96
      x1051 = x101*x1044*x1050*x444*(-x1045*x433 - x1046*x436 + x1049)
      x1052 = x113**(-3)
      x1053 = x1047*x112 + x1048*x108
      x1054 = x111*x428
      x1055 = x1052*x1054*x115*x455*(x1045*x451 + x1046*x452 + x1053)
      x1056 = x427*x443
      x1057 = x1042*x1056*x5
      x1058 = x1000 - x1002 - x1003 - x1005 + x1009 + x1014 + x1017 + x1
     &019 + x1020 + x1022 + x1034 - x1036 - x1037 - x1041 + x1043 + x105
     &1 + x1055 - x1057 + x987 + x988 + x991 + x993
      x1059 = x527*(rho_c**(-3.66666666666667d0)*x980 + x1058 + 0.299209
     &d0*x168*x518 + 0.181712059283214d0*x179*x419 + x182*x512*x82*( 0.6
     &20028561181324d0*x430 - 0.156676175559749d0*x899) - 2.422827457109
     &52d0*x185*x419 + x343*x980 - 2.90739294853142d0* x347*x523 + 14.53
     &69647426571d0*x414*x511 + x509*x519*x82*x978 + 43.6108942279714d0*
     &x510*x516 - 36.3424118566428d0*x514*x981 - 0.726848237132856d0*x98
     &5*(-6.0d0*x521 + 6.0d0*x522 + x983 + x984 ))
      x1060 = 0.40528798439483d0*x654
      x1061 = 0.58482233974552d0*x924
      x1062 = x1060*x894 - x1061*x925 + x1061*x936 - 0.00532388859905012
     &d0*x893 - 0.00341378571249706d0*x898 + 0.000887314766508353d0*x901
     & - 0.395035794051304d0*x903 + 0.0197517897025652d0*x912 - 0.039408
     &1882442864d0*x922 + 4.67857871796416d0*x923 + 2.99999988448829d0*x
     &929 - 17.3157558993759d0*x930 - x944 + x947 + x948 + x949 + x950 -
     & x951 + x952
      x1063 = x1062 + 20.5190512099364d0*x933 - 20.0d0*x935 - x939 - 5.1
     &297628024841d0 *x941 + 8.0d0*x943
      x1064 = x1063*x190
      x1065 = 12.0d0*x191
      x1066 = x169*x469
      x1067 = 3.15778393965961d0*x1066
      x1068 = rho_c**(-5.66666666666667d0)*x27
      x1069 = x162*x969
      x1070 = x1063*x171 + 0.211916079314314d0*x1068*x164 - 0.1338417343
     &03777d0*x1069* x310 - 0.074356519057654d0*x165*x343 - 2.1051892931
     &0641d0*x382* x486 + 0.111534778586481d0*x475*x483 - x484*x972
      x1071 = 12.0d0*x172
      x1072 = 24.0d0*x386
      x1073 = x1072*x85
      x1074 = x387*(0.917202013581841d0*x430 - 1.99883265211535d0*x899)
      x1075 = x391*x741
      x1076 = 48.0d0*x27
      x1077 = x1076*x168*x386*x84
      x1078 = 0.154912426780983d0*x393*x49
      x1079 = 2.25322953511185d0*x83
      x1080 = x1079*x386*x395*x82
      x1081 = x394*x81
      x1082 = 4.50645907022371d0*x1081*x27*x83*x896
      x1083 = 0.751076511703951d0*x36*x393*x394
      x1084 = x1076*x327*x389
      x1085 = 0.0037178259528827d0*x332
      x1086 = 0.00910930363347549d0*rho_c**(-3.66666666666667d0)
      x1087 = 0.0751469112939684d0*x430 - 0.01915695d0*x777 + 0.00836319
     &657736588d0* x899 + 0.00394098931294027d0*x953
      x1088 = x1087*x462
      x1089 = 0.350864882184401d0*x77
      x1090 = x1089*x168
      x1091 = 0.133252782879869d0*x464*x896
      x1092 = 0.0799516697279215d0*x465
      x1093 = x321*x33
      x1094 = 0.701729764368802d0*x470*x77
      x1095 = rho_c**(-5.33333333333333d0)
      x1096 = x44*x464
      x1097 = 0.159903339455843d0*x1095*x1096*x27 + 0.00495710127051027d
     &0*x120*x343 - 1.75432441092201d0*x27*x78*x966
      x1098 = 12.0d0*x123
      x1099 = 7.85204841248826d0*x309
      x1100 = x356 + x359 + x361 - x362 - x366
      x1101 = x1100 - x358
      x1102 = x1101*x53
      x1103 = 3.0d0*x138
      x1104 = x17/x70**2
      x1105 = x1103*x1104
      x1106 = x1100*x1105
      x1107 = x17*x369
      x1108 = x1107*x65
      x1109 = x1103*x1108
      x1110 = x1109*x357
      x1111 = 12.0d0*x26*x338
      x1112 = 0.803050405822664d0*x158
      x1113 = x1112*x159
      x1114 = x62*x899
      x1115 = 5.57009647607783d0*x1114
      x1116 = rho_c**(-4.33333333333333d0)
      x1117 = x337**2
      x1118 = x1117*x67
      x1119 = mu*x1116*x1118*x27*x31
      x1120 = x5**(-1.33333333333333d0)
      x1121 = x1120*x4
      x1122 = x6**(-1.33333333333333d0)
      x1123 = x1122*x4
      x1124 = x1121 + x1123
      x1125 = x1124 - 6.0d0*x335 + 6.0d0*x336
      x1126 = rho_s*x1125
      x1127 = x1126*x349*x567
      x1128 = x338*x349*x896
      x1129 = x59*x61
      x1130 = 2.476605793811d0*x1129
      x1131 = 9.90642317524398d0*x1117
      x1132 = rho_c**(-3.16666666666667d0)
      x1133 = x1132*x338
      x1134 = rho_c**(-4.16666666666667d0)*x1131*x27*x56*x59 + rho_c**( 
     &-3.16666666666667d0)*x1126*x1130 - x1130*x1133 + 2.16703006958462d
     &0*x917
      x1135 = 12.0326097596534d0*x1114
      x1136 = x363*x57
      x1137 = x357*x62
      x1138 = 2.0d0*x65
      x1139 = x70/x64**2
      x1140 = x1137*x1139
      x1141 = x17*x68
      x1142 = rho_c**(-3.5d0)*x1141
      x1143 = x1142*x365
      x1144 = x53*x72
      x1145 = x1117*x1144*x580
      x1146 = x1093*x311
      x1147 = 0.121994199821273d0*x48
      x1148 = x1147*x328*x44
      x1149 = x1148*x27
      x1150 = -rho_c**(-6.0d0)*x1149 - rho_c**(-6.0d0)*x1149 + x1063*x11
     &13 + 3.39065726902902d0*x1068*x312 - 0.267683468607554d0*x1087*x31
     &1* x322*x49 - 0.000542507213303895d0*x1116*x326 + x1125*x340*x533*
     & x741 - x1145*x956 + 1.07073387443022d0*x1146*x310 + x1147*x323* x
     &329 - 1.18970430492246d0*x212*x343 - 0.892278228691848d0*x323* x33
     &2*x48 + 0.284653132916304d0*x326*x328*x469 - 3.0d0*x339*x370*( 144
     &.751042466189d0*rho_c**(-4.5d0)*x1117*x1141*x27/x53**4 - x1100 *x1
     &137*x1138 + 72.1956585579204d0*x1119 + 18.0938803082737d0* x1126*x
     &1142*x67 + 12.0326097596534d0*x1127 - 24.0652195193068d0* x1128 + 
     &x1134 + x1135 + 20.3556153468079d0*x1136 + x1140*( 3.7149086907164
     &9d0*x271 + 8.35514471411675d0*x346 - 33.420578856467d0*x350 - 14.8
     &59634762866d0*x354) - 54.281640924821d0*x1143 - x71*(x1115 + 33.42
     &0578856467d0*x1119 + 5.57009647607783d0*x1127 - 11.1401929521557d0
     &*x1128 + x1134)) - 4.28293549772087d0*x382*x748
      x1151 = 12.0d0*x267
      x1152 = x240**(-2)
      x1153 = x2*x570
      x1154 = x1152*x1153*x714
      x1155 = -x569 - x578 + x607 - x670 + x713
      x1156 = 21.170591578193d0*x205
      x1157 = 3.0d0*x1155*x1156
      x1158 = x554*x575
      x1159 = rho_c**(-5.33333333333333d0)
      x1160 = rho_s*x1159
      x1161 = rho_c**(-6.33333333333333d0)*x27
      x1162 = x572**2
      x1163 = x1162*x9
      x1164 = 0.0308430206873641d0*x1163
      x1165 = 2.66666666666667d0*x534
      x1166 = 2.66666666666667d0*x535
      x1167 = 0.444444444444444d0*x4
      x1168 = x1167*x959
      x1169 = x1167*x962
      x1170 = x1168 + x1169
      x1171 = x570*(x1165 - x1166 + x1170)
      x1172 = x221 + x579 + x645
      x1173 = 1d0/x1172
      x1174 = x1172*x539
      x1175 = x1174*x382 + x686
      x1176 = x1173*x1175
      x1177 = x1176*x554
      x1178 = x1172**(-2)
      x1179 = x1175**2*x1178
      x1180 = x230*x554
      x1181 = 0.0857435975108721d0*x573
      x1182 = rho_s*x1158
      x1183 = x382*x539
      x1184 = x1175*x1178*x602
      x1185 = 0.0134938215507218d0*x567
      x1186 = x233*(x609 - x700 + x703 + x708)
      x1187 = x1186*x547
      x1188 = rho_s*x575
      x1189 = 0.00771075517184102d0*x198
      x1190 = gamma_cc*x1189
      x1191 = x1176*x547
      x1192 = 5.75747149073746d0*x891
      x1193 = 0.177604923664312d0*x893
      x1194 = 13.5204071594115d0*x895
      x1195 = 0.113883891368902d0*x898
      x1196 = 0.0296008206107187d0*x901
      x1197 = 13.1783940895515d0*x903
      x1198 = 0.658919704477575d0*x912
      x1199 = 4.3181036180531d0*x915
      x1200 = 4.3181036180531d0*x916
      x1201 = 66.72d0*x919
      x1202 = 66.72d0*x921
      x1203 = 1.3146571598294d0*x922
      x1204 = 156.077386031284d0*x923
      x1205 = 19.5096732539106d0*x926
      x1206 = 100.079996146529d0*x929
      x1207 = 577.653616803179d0*x930
      x1208 = 66.72d0*x932
      x1209 = 684.515548363478d0*x933
      x1210 = 667.2d0*x935
      x1211 = 19.5096732539106d0*x937
      x1212 = 33.36d0*x939
      x1213 = 171.128887090869d0*x941
      x1214 = 266.88d0*x943
      x1215 = 33.36d0*x952
      x1216 = x220*x954
      x1217 = 19.1776023007703d0*x1216
      x1218 = x220*x955
      x1219 = 18.8527158779386d0*x1218
      x1220 = 1.16964467949104d0*x283 + x886 + x887 + x888 + x889 + x890
     &
      x1221 = x290*x580
      x1222 = 5.1297628024841d0*x287
      x1223 = x1221*x206 - x1222*x288 - 2.0d0*x305
      x1224 = x307*x588
      x1225 = 22.6232590535263d0*x1224
      x1226 = x368*x53
      x1227 = x138*x371*x53
      x1228 = x24*(x1065*(-x1059 + x1064 + x967 - x968 - x970 + x971 - x
     &973 - x974 + x975 + x976 - x977) + x1071*(x1067*x208 + x1070) - x1
     &098*(x1085* x627 - x1086*x46 - x1088*x29*x33 + x1090*x622 + x1091*
     &x45 - x1092 *x622 + x1094*x621 + x1097 - x29*x753 - x461*(-x1000 +
     & x1002 + x1003 + x1005 - x1009 - x1014 - x1017 - x1019 - x1020 - x
     &1022 - x1034 + x1036 + x1037 + x1041 - x1043 - x1051 - x1055 + x10
     &57 - x1073 - x1074 - x1075 - x1077 - x1078 - x1080 - x1082 - x1083
     & + x1084 - x987 - x988 - x991 - x993)) + x1099*x216 - x1106*x1226 
     &+ x1110*x1226 + x1111*x1227 + x1150)
      x1229 = 2.78d0*x1228
      x1230 = x1173*(8.34d0*x1063*x1174 + 8.34d0*x1172*x382*(x1220 + x12
     &23)/x249**2 + 16.68d0*x1183*x686 + x1192 + x1193 - x1194 + x1195 -
     & x1196 + x1197 - x1198 - x1199 - x1200 - x1201 - x1202 + x1203 - x
     &1204 + x1205 - x1206 + x1207 + x1208 - x1209 + x1210 - x1211 + x12
     &12 + x1213 - x1214 - x1215 + x1217 - x1219 + x1225 + x1229)
      x1231 = x541*x882
      x1232 = rho_s*x825
      x1233 = gamma_cc*x541
      x1234 = x1232*x1233*x548
      x1235 = x26*x570*x584*x684 - 1.35631049481572d0*x308 - x532 + x685
     &
      x1236 = exp(-x200*x223)
      x1237 = x1235*x1236
      x1238 = x230*x549
      x1239 = x1237*x1238
      x1240 = x1233*x1237*x544
      x1241 = x1176*x1231*x14
      x1242 = x1191*x614 + x1231*x675 + x1234*x697 + x1239*x663 - x1240*
     &x856 - 0.00297516549581645d0*x1241 - x547*x609 - x547*x703
      x1243 = x1242*x882
      x1244 = x1242*x553
      x1245 = x1180*x553
      x1246 = x16*x545
      x1247 = 0.00144576659472019d0*x236
      x1248 = x573*x610
      x1249 = rho_s*x1248
      x1250 = 0.00499428260688613d0*x674
      x1251 = 0.0028538757753635d0*x696
      x1252 = 0.185058124124184d0*x662
      x1253 = 0.00428081366304526d0*x677
      x1254 = x1253*x13
      x1255 = 4.31802289623097d0*x610
      x1256 = x1160*x231
      x1257 = 3.45441831698478d0*x573
      x1258 = 1.48046499299348d0*x1163
      x1259 = x1161*x1258
      x1260 = 0.555174372372553d0*x1171
      x1261 = 7.20246219091326d0*x608
      x1262 = 4.29060961944404d0*x232
      x1263 = 4.11569268052186d0*x1249
      x1264 = 5.18162747547716d0*x567
      x1265 = x1236*x548
      x1266 = x1265*x662
      x1267 = x1235*x1266
      x1268 = 16.0d0*x199
      x1269 = 1408.04281369971d0
      x1270 = x1269*x230
      x1271 = x1235**2*x1270
      x1272 = x7**(-6)
      x1273 = 4.44139497898043d0*x1272
      x1274 = x1272*x16
      x1275 = 2.22069748949021d0*x1274
      x1276 = x226*x660
      x1277 = 2.96092998598695d0*x1276
      x1278 = 1.5433847551957d0*x232
      x1279 = 2.07103291033722d0*x891
      x1280 = 0.0638866631886015d0*x893
      x1281 = 4.86345581273796d0*x895
      x1282 = 0.0409654285499647d0*x898
      x1283 = 0.0106477771981002d0*x901
      x1284 = 4.74042952861565d0*x903
      x1285 = 0.237021476430782d0*x912
      x1286 = 1.55327468275291d0*x915
      x1287 = 1.55327468275291d0*x916
      x1288 = 24.0d0*x919
      x1289 = 24.0d0*x921
      x1290 = 0.472898258931437d0*x922
      x1291 = 56.14294461557d0*x923
      x1292 = 7.01786807694624d0*x926
      x1293 = 35.9999986138594d0*x927
      x1294 = x1293*x928
      x1295 = 207.78907079251d0*x930
      x1296 = 24.0d0*x932
      x1297 = 246.228614519237d0*x933
      x1298 = 240.0d0*x935
      x1299 = 7.01786807694624d0*x937
      x1300 = 12.0d0*x939
      x1301 = 61.5571536298092d0*x941
      x1302 = 96.0d0*x943
      x1303 = 12.0d0*x952
      x1304 = 6.89841809380227d0*x1216
      x1305 = 6.78155247407862d0*x1218
      x1306 = x572*x9
      x1307 = 16.0d0*x1306
      x1308 = x1307*x616
      x1309 = x1308*x683
      x1310 = x1309*x956
      x1311 = x681*x965*(2.0d0*x534 - 2.0d0*x535 + x964)
      x1312 = 8.13786296889434d0*x1224
      x1313 = x570*x686
      x1314 = x1151*x1313*x683
      x1315 = 0.185058124124184d0*x232
      x1316 = x231*x233
      x1317 = x1160*x1316
      x1318 = x198*x693
      x1319 = rho_c**(-7.66666666666667d0)*x12
      x1320 = 0.0570775155072701d0*x1162
      x1321 = 0.888888888888889d0*x4
      x1322 = x1321*x959
      x1323 = x1321*x962
      x1324 = x233*x604
      x1325 = x603**2
      x1326 = x584**(-2)
      x1327 = x1262*x1326
      x1328 = x201*x704
      x1329 = x233*x687
      x1330 = x673*x677
      x1331 = x679*x689
      x1332 = exp(-x1268*x196)
      x1333 = x1270*x1273*x1332*x204
      x1334 = x687**2
      x1335 = x1334*x233
      x1336 = x1269*x1275
      x1337 = x1336*x236
      x1338 = x1337*x706
      x1339 = 20353.1779648712d0/(x1**3*x7**8)
      x1340 = 0.154109291869629d0*x1339
      x1341 = x1334*x680
      x1342 = 0.0513697639565431d0*x1339
      x1343 = x1277*x201*x691
      x1344 = x572*x676
      x1345 = x209*x382
      x1346 = x672*x674
      x1347 = x1326*x603*x635
      x1348 = 6.17353902078279d0*x704
      x1349 = 0.285615887598379d0*x677
      x1350 = x1228 + x1279 + x1280 - x1281 + x1282 - x1283 + x1284 - x1
     &285 - x1286 - x1287 - x1288 - x1289 + x1290 - x1291 + x1292 - x129
     &4 + x1295 + x1296 - x1297 + x1298 - x1299 + x1300 + x1301 - x1302 
     &- x1303 + x1304 - x1305 - x1310 - x1311 + x1312 - x1314
      x1351 = 0.370116248248369d0*x704*x706
      x1352 = 0.00856162732609051d0*x677
      x1353 = x208**(-2)
      x1354 = x1353*x494*x584
      x1355 = x1354*(x1220 - x1221*x137 + x1222*x491 + 2.0d0*x490)
      x1356 = x139*x489
      x1357 = x491*x902
      x1358 = 20.5190512099364d0*x264
      x1359 = x586*(x1062 + x1222*x489 - 8.0d0*x1356*x259 + 20.0d0*x1357
     &*x139 - x1358* x491*x894 + x491*x938)
      x1360 = x209*x494
      x1361 = x1360*x602
      x1362 = x1315*x585
      x1363 = 0.0416666666666667d0*rho_c
      x1364 = x1095*x719*x892
      x1365 = x149*x900
      x1366 = x1365*x264
      x1367 = x654*x902
      x1368 = x258*x719
      x1369 = x1368*x260
      x1370 = 2.56488140124205d0*x263
      x1371 = 2.56488140124205d0*x262
      x1372 = x1370 - x1371 + x909
      x1373 = x26*x265
      x1374 = x1372*x1373
      x1375 = x651*x720
      x1376 = x264*x3
      x1377 = x264*x934
      x1378 = x1372*x934
      x1379 = x259*x940
      x1380 = x720*x942
      x1381 = x307*x784
      x1382 = x245*x957
      x1383 = 6.0d0*x26
      x1384 = rho_s*x469
      x1385 = 0.789445984914903d0*x1384*x163*x41
      x1386 = 0.526297323276602d0*rho_s*x777*x969
      x1387 = 2.06952542814068d0*x800*x953
      x1388 = x159*x504*x845
      x1389 = x1356*x727
      x1390 = x489*x794
      x1391 = x1390*x724
      x1392 = -x1370 + x1371 - x906 - x908
      x1393 = 0.0197517897025652d0*x1373
      x1394 = x1392*x1393
      x1395 = 0.202643992197415d0*x902
      x1396 = x1395*x858
      x1397 = x1395*x654
      x1398 = 0.00170689285624853d0*x1365
      x1399 = x1398*x794
      x1400 = x1357*x1392
      x1401 = x1368*x835
      x1402 = 10.2595256049682d0*x1357
      x1403 = x1402*x264
      x1404 = x1402*x794
      x1405 = x3*x794
      x1406 = 1.49999994224414d0*x927
      x1407 = x1405*x1406
      x1408 = 0.00266194429952506d0*x1364
      x1409 = x1368*x802
      x1410 = x652*x720
      x1411 = x1408 + x1409 - x1410
      x1412 = x1389 + x1391 + x1394 + x1396 - x1397 - x1399 + x1400 - x1
     &401 + x1403 - x1404 + x1407 + x1411
      x1413 = x1412*x190
      x1414 = x400*x49
      x1415 = 0.00471242990112409d0*x1414
      x1416 = 0.0188497196044964d0*rho_c**(-2.66666666666667d0)*rho_s
      x1417 = 0.0188497196044964d0*x414
      x1418 = 0.0115260005177981d0*x567
      x1419 = 0.00288150012944953d0*x315
      x1420 = 0.00864450038834858d0*x230
      x1421 = x1419 + x1420
      x1422 = x1015*x453
      x1423 = -x1006*x999*(x1418*x450 + x1421) + x1007*x1417 + x1016*x6*
     &x758 + x1415* x756 - x1415*x759 + x1416*x403 + x1416*x408 + x1422*
     &x400*x412*x6
      x1424 = 0.726848237132856d0*x420
      x1425 = x1424*x6
      x1426 = x1035*x1417
      x1427 = x5*x758
      x1428 = x1418*x432
      x1429 = x1035*x999
      x1430 = x416*x6
      x1431 = x454*x766
      x1432 = x1010*x442
      x1433 = x1432*x397*x5
      x1434 = x416*x5
      x1435 = 0.0582386976490866d0*x430
      x1436 = x1435*x97
      x1437 = x230*x435
      x1438 = x1437*x93
      x1439 = 0.0549335645954204d0*x899
      x1440 = x1439*x93
      x1441 = 0.0582386976490866d0*x1026
      x1442 = x1441*x433
      x1443 = 0.219734258381682d0*x567
      x1444 = x1029*x1443
      x1445 = x112*x1435
      x1446 = x1040*x1443 + x108*x1437 + x108*x1439 + x1441*x451 + x1445
     &
      x1447 = x1052*x1053*x115
      x1448 = x1447*x454*x772
      x1449 = x101*x1044*x1049
      x1450 = x1449*x769
      x1451 = -x1011*x1427 - x1012*x1433 - x1056*x765 + x111*x1448 - x11
     &7*x1425 + x1424*x457 - x1426*x399 - x1429*(-x1419 - x1420 + x1428)
     & + x1430* x840 + x1431*x448 - x1434*x841 - x1446*x449*x6 - x1450*x
     &443*x96 + x422*x840 + x422*x841 - x429*x5*(-x1436 - x1438 - x1440 
     &+ x1442 + x1444) + x985*x989 + x985*x992
      x1452 = x527*(rho_s*x159*x979 + x1423 + x1451 - 29.0739294853142d0
     &*x347*x514 + 1.45369647426571d0*x419*x844 + 0.726848237132856d0*x4
     &20*(3.0d0* x521 - 3.0d0*x522 - x983 - x984) + 21.8054471139857d0*x
     &510*x524)
      x1453 = rho_s*x309
      x1454 = 0.122688256445129d0*x1453*x164
      x1455 = 0.0669208671518886d0*x1069*x730
      x1456 = 1.0525946465532d0*x1066*x800
      x1457 = x1412*x171
      x1458 = rho_s*x39*x84
      x1459 = -x36 + x398
      x1460 = x434 + x437 - x439 - x441
      x1461 = 3.63424118566428d0*x985
      x1462 = rho_s*x1079*x1081*x315 - 48.0d0*rho_s*x168*x389 + x1423 + 
     &x267*x390
      x1463 = x25*x467
      x1464 = rho_s*x1089*x327
      x1465 = 0.0799516697279215d0*rho_s*x1096*x1116 - 1.0525946465532d0
     &*x1384*x78
      x1466 = 2.14146774886044d0*x158*x309
      x1467 = 1.2383028969055d0*x917
      x1468 = 27.1408204624105d0*x1136
      x1469 = 72.1956585579204d0*x1117
      x1470 = 3.0d0*x335
      x1471 = 3.0d0*x336
      x1472 = x1124 - x1470 + x1471
      x1473 = 2.476605793811d0*x352
      x1474 = x230*x31
      x1475 = x1474*x62
      x1476 = 12.0326097596534d0*x1475
      x1477 = 18.0938803082737d0*x1136
      x1478 = x624*x65
      x1479 = x1478*x738
      x1480 = x1479*x62
      x1481 = 14.859634762866d0*x271 + 33.420578856467d0*x346
      x1482 = -x1140*x1481*x624
      x1483 = -x1121 - x1123 + x1470 - x1471
      x1484 = x1475*x1483
      x1485 = 5.57009647607783d0*x1484
      x1486 = x1115*x624
      x1487 = x1128*x624
      x1488 = 33.420578856467d0*x1487
      x1489 = x1473*x1483
      x1490 = x1467*x624
      x1491 = 9.90642317524398d0*x1129*x1133*x624
      x1492 = x1489 - x1490 + x1491
      x1493 = x1103*x734
      x1494 = x1472*x341
      x1495 = x624*x736
      x1496 = x1495*x368
      x1497 = 0.535366937215109d0*x730
      x1498 = x370*x740
      x1499 = 6.0d0*x3
      x1500 = x1499*x337
      x1501 = x337*x738
      x1502 = rho_s*x1148*x966 - 1.96301210312207d0*x1453*x312
      x1503 = x24*(-x1065*(x1385 - x1386 + x1387 + x1388 - x1413 - x1452
     &) - x1071*( x1454 - x1455 + x1456 - x1457) + x1098*(-x1093*x1464 -
     & x1463*x776 + x1465 + x461*(x1010*x1427*x1460 - x1424*x5*x763 + x1
     &425*x768 + x1426*x1459 + x1429*(x1421 - x1428) - x1430*x774 - x143
     &1*x773 + x1433*x1459*x400 + x1434*x771 + x1446*x772*x773 - x1448*x
     &767 - x1450*x1460*x762 - 24.0d0*x1458*(x384 - x385) - x1460*x765*x
     &770 - x1461*x763 - x1461*x768 + x1462 - x422*x771 - x422*x774 - x7
     &69* x770*(x1436 + x1438 + x1440 - x1442 - x1444))) + x1105*x1496 +
     & x1109*x1501*x368 + x1113*(-x1060*x902 - x1358*x934 + x1368*x808 -
     & x1372*x1393 - x1376*x1406 + x1378 + x1398*x264 + x1411 + x724* x9
     &40 - x727*x942) + x1145*x911 - x1146*x1497 - x1227*x1500 - x1383*x
     &1498*x338 - x1466*x747 - x1493*(-144.751042466189d0*rho_s* x1118*x
     &1142 - rho_s*x1129*x1131*x1132 + x1100*x1480 + x1135*x337 - x1137*
     &x65*x737 + x1467*x337 + x1468*x337 - x1469*x349*x897 - x1472*x1473
     & - x1472*x1476 - x1472*x1477 + x1482 - x71*(x1485 - x1486 + x1488 
     &+ x1492)) - x1494*x340 + x1502)
      x1504 = rho_s*x1383
      x1505 = x564*x878
      x1506 = x1505*x791
      x1507 = x233*x564
      x1508 = 0.0115661327577615d0*x867
      x1509 = x1508*x851 + 1.0d0
      x1510 = x567*x666
      x1511 = x666*x850
      x1512 = x15*x823
      x1513 = x1246*x857
      x1514 = x1509 + x1512*x1513
      x1515 = 1d0/x1514
      x1516 = x1509*x1515
      x1517 = x1153*x1515
      x1518 = x1517*(x1509*x1510*x574 + x1509*x1511*x605 + x1516*x669*(-
     &x829 - x855 + x865 - x866 - x869 + x871) + x642*x668*x823*(x614*x8
     &50 - x642* x870 + x815))/x244**2
      x1519 = x233*x576
      x1520 = 1.33333333333333d0*x534
      x1521 = 1.33333333333333d0*x535
      x1522 = x1170 + x1520 - x1521
      x1523 = x793*x812
      x1524 = 0.042871798755436d0*x573
      x1525 = x233*x812
      x1526 = x567*x820
      x1527 = x209*x747
      x1528 = x1527*x604
      x1529 = x1326*x848
      x1530 = x1529*x813
      x1531 = x603*x811
      x1532 = 0.0893877004050842d0*x1326*x876
      x1533 = x814*x820
      x1534 = x1510*x826
      x1535 = x233*x664
      x1536 = gamma_cc*x198
      x1537 = 0.00385537758592051d0*x1536
      x1538 = 0.00803846226664426d0*x11
      x1539 = 48.0d0*x1380
      x1540 = x209*x801
      x1541 = 30.7785768149046d0*x1379
      x1542 = 0.158014317620522d0*x260*x742
      x1543 = 0.101321996098707d0*x832
      x1544 = 5.1297628024841d0*x142*x796
      x1545 = x137*x139*x580*x742
      x1546 = -x1542 + x1543 + x1544 + x1545
      x1547 = 3.0d0*x3
      x1548 = 0.0204827142749824d0*x1366
      x1549 = 0.237021476430782d0*x1374
      x1550 = 4.06893148444717d0*x1381
      x1551 = 4.86345581273796d0*x1367
      x1552 = 12.0d0*x1378
      x1553 = 192.0d0*x1368
      x1554 = x1553*x728
      x1555 = 246.228614519237d0*x1377
      x1556 = 17.9999993069297d0*x927
      x1557 = x1376*x1556
      x1558 = 0.0319433315943007d0*x1364
      x1559 = 3.79234362289252d0*x1369
      x1560 = 28.071472307785d0*x1375
      x1561 = x1558 + x1559 - x1560
      x1562 = x585*(x1354*x1546*x1547 - 3.0d0*x1360*x810 - 3.0d0*x1412*x
     &586 - x1503 - x1539 - 3.0d0*x1540*x602 + x1541 + x1548 - x1549 - x
     &1550 - x1551 + x1552 + x1554 - x1555 - x1557 + x1561)
      x1563 = x793*x874
      x1564 = x1324*x239
      x1565 = x642*x874
      x1566 = 0.000722883297360095d0*x230
      x1567 = x1513*x873
      x1568 = x664*x715
      x1569 = x229*x711
      x1570 = x573*x608
      x1571 = x1570*x666
      x1572 = x667*x862
      x1573 = -x1254*x864 + 0.0028538757753635d0*x828 + 0.00595033099163
     &29d0*x854
      x1574 = -0.000722883297360095d0*x1252*x1572 + 8.91836179801095d-5*
     &x1571 + 0.000722883297360095d0*x1573 + 0.000185947843488528d0*x868
     &
      x1575 = x1152*x1246*x236*x710
      x1576 = 1.72720915849239d0*x1248
      x1577 = 0.555174372372553d0*x611
      x1578 = 3.60123109545663d0*x608
      x1579 = x567*x818
      x1580 = 1.48046499299348d0*x1276
      x1581 = x1580*x691
      x1582 = 1.5433847551957d0*x608
      x1583 = x1278*x1529
      x1584 = 3.0867695103914d0*x704
      x1585 = x1499*x536
      x1586 = x570*x817
      x1587 = -x1558 - x1559 + x1560
      x1588 = 0.000240961099120032d0*x814
      x1589 = 1.48046499299348d0*x612*x666
      x1590 = x2*x641
      x1591 = x1590*x824
      x1592 = x1591*x696
      x1593 = x1510*x862
      x1594 = x1274*x857
      x1595 = 0.0684930186087241d0*x1594
      x1596 = x674*x852
      x1597 = x1596*x850
      x1598 = x619*x800
      x1599 = x1582*x1598
      x1600 = x1344*x673
      x1601 = 0.0357019859497974d0*x1598
      x1602 = -x833 + x859
      x1603 = x1602*x636
      x1604 = x616**(-2)
      x1605 = x1604*x867
      x1606 = 1.5433847551957d0*x1605
      x1607 = x1604*x853
      x1608 = 0.0357019859497974d0*x1607
      x1609 = 4.29060961944404d0*x1605
      x1610 = x636*x849
      x1611 = 4.44139497898043d0*x1270*x1594*x666
      x1612 = exp(x1268*x638)
      x1613 = x1612*x657*x861
      x1614 = x13*x824
      x1615 = x1340*x1614/x640**3
      x1616 = x1614*x857
      x1617 = x1616*x658
      x1618 = 0.198503041880874d0*x1607
      x1619 = 3.0867695103914d0*x662
      x1620 = 0.14280794379919d0*x677
      x1621 = x13*x864
      x1622 = 3.0d0*x837
      x1623 = 3.0d0*x76
      x1624 = x1104*x1623
      x1625 = x624**2
      x1626 = x1625*x838
      x1627 = x370*x76
      x1628 = 8.0d0*x76
      x1629 = x24*(x1065*(-x1385 + x1386 - x1387 - x1388 + x1413 + x1452
     &) + x1071*( -x1454 + x1455 - x1456 + x1457) + x1098*(-x1463*x843 +
     & x1464*x621 + x1465 + x461*(x1072*x1458 + x1451 + x1462)) + x1107*
     &x1479*x1623 *x368 + x1113*x1412 + x1144*x1628*x338*x624*x741 - x14
     &66*x800 + x1494*x626 - x1496*x1624 + x1497*x311*x621 + x1500*x371*
     &x53*x76 + x1502 + x1504*x1626*x1627 + x1622*(-x1135*x624 + x1137*x
     &1478*x736 + 144.751042466189d0*x1143*x624 - x1468*x624 + x1477*x14
     &83 - x1480*x367 + x1482 + 12.0326097596534d0*x1484 + 72.1956585579
     &204d0*x1487 + x1492 + x71*(-x1485 + x1486 - x1488 - x1489 + x1490 
     &- x1491)))
      x1630 = 48.0d0*x1356*x720
      x1631 = 30.7785768149046d0*x1390*x259
      x1632 = x570*x860
      x1633 = 0.237021476430782d0*x1392
      x1634 = x26*x649*x653
      x1635 = 4.06893148444717d0*x307*x846
      x1636 = 2.43172790636898d0*x1367
      x1637 = 0.0204827142749824d0*x794
      x1638 = 2.43172790636898d0*x858*x902
      x1639 = 12.0d0*x1400
      x1640 = x1553*x798
      x1641 = x1307*x646
      x1642 = 123.114307259618d0*x1357
      x1643 = x1642*x794
      x1644 = x1642*x264
      x1645 = x1383*x647*(x644 - x961 - x963) + 17.9999993069297d0*x1405
     &*x649*x650 - x149*x1637*x649*x899 + x1504*x1632*x644 + x1585*x570*
     &x656 + x1587 + x1629 - x1630 - x1631 + x1633*x1634 + x1635 + x1636
     & - x1638 - x1639 + x1640 + x1641*x644*x911 + x1643 - x1644
      x1646 = x639*x667
      x1647 = 0.370116248248369d0*x1646*x662
      x1648 = x1616*x639
      x1649 = x1352*x16*x1648
      x1650 = 3.0d0*x619
      x1651 = x616*(x1542 - x1543 - x1544 - x1545)/x157**2
      x1652 = -x1365*x1637 + x1373*x1633 + x1405*x1556 + x1547*x1651*x61
     &8 + x1561 - x1629 + x1630 + x1631 - x1635 - x1636 + x1638 + x1639 
     &- x1640 - x1643 + x1644 + x1650*x618*x848 + x1650*x635*x831 + 3.0d
     &0*x620*( -x1389 - x1391 - x1394 - x1396 + x1397 + x1399 - x1400 + 
     &x1401 - x1403 + x1404 - x1407 - x1408 - x1409 + x1410)
      x1653 = x617*x867
      x1654 = x617*x853
      x1655 = x241*x851
      x1656 = 0.000240961099120032d0*x1655*x876
      x1657 = x260*x956
      x1658 = x904 + x907
      x1659 = x1658*x265
      x1660 = 0.0168869993497846d0*x1659
      x1661 = x1658*x934
      x1662 = x1368*x725
      x1663 = 12.0d0*x728
      x1664 = 0.535366937215109d0*x312*x343
      x1665 = x1120 + x1122
      x1666 = x1665*x341
      x1667 = x1117*x1144*x26
      x1668 = 12.0d0*x3
      x1669 = x1668*x337
      x1670 = 3.0d0*x61*x740
      x1671 = 20.5190512099364d0*x742
      x1672 = 0.854960467080683d0*x142*x1658
      x1673 = 0.237021476430782d0*x260*x28
      x1674 = x1660 - x1673
      x1675 = x1060*x742 - x1663*x28 + x1671*x725 - x1672*x288 + x1674
      x1676 = x1112*x309
      x1677 = x170*x469
      x1678 = x1473*x1665
      x1679 = 9.90642317524398d0*x353
      x1680 = 144.751042466189d0*x364
      x1681 = x1474*x348
      x1682 = x348*x738
      x1683 = x1625*x1681
      x1684 = x1625*x1679 + x1678
      x1685 = x1625*x1682
      x1686 = x1139*x1481*x1685 + x1476*x1665 + x1477*x1665 - x71*(5.570
     &09647607783d0* x1475*x1665 + 33.420578856467d0*x1683 + x1684)
      x1687 = 0.0282745794067445d0*x1414
      x1688 = x1687*x402
      x1689 = x1687*x407
      x1690 = 0.0141372897033723d0*x757
      x1691 = x1432*x1690
      x1692 = x1422*x1690
      x1693 = 3.63424118566428d0*x420
      x1694 = x103*x1693
      x1695 = x117*x1693
      x1696 = 4.36108942279713d0*x415
      x1697 = x1696*x841
      x1698 = x1696*x840
      x1699 = x429*(x1025 + x1436)
      x1700 = x449*(x1038 + x1445)
      x1701 = x1050*x1449*x442
      x1702 = x1054*x1447*x453
      x1703 = x1688 + x1689 + x1691 + x1692 + x1694 + x1695 + x1697 + x1
     &698 - x1699 - x1700 + x1701 + x1702
      x1704 = 1.55214407110551d0*x953
      x1705 = x1693*x53
      x1706 = x24*(x1065*(x1675*x1704 - x527*(x1703 - x1705 - x782) + x7
     &78) + x1071*( x1675*x1677 + x750) + x1098*(-x461*(x1703 - x755) + 
     &x753) - x1104 *x1495*x1670 - x1108*x1501*x1670 - x1493*(x1117*x167
     &9 + x1118* x1680 + x1138*x1682*x624*x737 + x1469*x1681 + x1678 + x
     &1686) + x1498*x1669 + x1664 + x1666*x340 - x1667*x580 + x1675*x167
     &6)
      x1707 = x959 + x962
      x1708 = x811**2
      x1709 = 0.40528798439483d0*x742*x858
      x1710 = 12.0d0*x28*x798
      x1711 = x1671*x796
      x1712 = x1672*x491
      x1713 = x1674 - x1709 + x1710 + x1711 + x1712
      x1714 = 8.34d0*x26
      x1715 = x1368*x654
      x1716 = x728*x956
      x1717 = x1659*x26
      x1718 = -7.9070364537309d0*x1657 + 0.563350298308813d0*x1717
      x1719 = x1353*x1546*x1714*x584*x800 - 16.68d0*x1540*x810 - 28.5214
     &811818116d0* x1661 + 684.515548363478d0*x1662 - 2.78d0*x1706 - x17
     &13*x1714* x586 + 13.5204071594115d0*x1715 - 400.32d0*x1716 + x1718
     &
      x1720 = 0.0160769245332885d0*x812
      x1721 = x16*x228
      x1722 = x1152*x1567
      x1723 = 0.246744165498913d0*x1707*x611
      x1724 = x1258*x610
      x1725 = 4.11569268052186d0*x1570
      x1726 = x818**2
      x1727 = 2.84425771716939d0*x1657
      x1728 = 2.0d0*x1707
      x1729 = x1668*x536
      x1730 = x849**2
      x1731 = x861**2
      x1732 = x1612*x1731
      x1733 = x1602*x849
      x1734 = x1368*x858
      x1735 = x1357*x1658
      x1736 = x1368*x796
      x1737 = x798*x956
      x1738 = x1626*x61
      x1739 = -x1688 - x1689 - x1691 - x1692 - x1694 - x1695 - x1697 - x
     &1698 + x1699 + x1700 - x1701 - x1702
      x1740 = x24*(x1065*(x1704*x1713 + x527*(x1705 + x1739 + x782) + x7
     &78) + x1071*( x1677*x1713 + x750) + x1098*(x461*(x1739 + x755) + x
     &753) + x1108* x1623*x1738*x738 + x1622*(-x1138*x1685*x736 + x1625*
     &x1680*x67 + 72.1956585579204d0*x1683 + x1684 + x1686) - x1624*x173
     &8*x736 + x1627*x1669*x839 + x1628*x1667 + x1664 - x1666*x626 + x16
     &76*x1713 )
      x1741 = x1632*x1729 + 0.202643992197415d0*x1634*x1658 + x1641*x537
     & + x1727 + x1728*x648 + 4.86345581273796d0*x1734 - 10.259525604968
     &2d0*x1735 - 246.228614519237d0*x1736 - 144.0d0*x1737 + x1740
      x1742 = x620*(-x1660 + x1673 + x1709 - x1710 - x1711 - x1712)
      x1743 = x619*x831*x848
      x1744 = x1651*x830
      x1745 = 16.68d0*x26
      x1746 = x823*x883
      x1747 = x1746*x851
      x1748 = x1508 + x1747
      x1749 = x1748*x851
      x1750 = x15*x672 - x1749*x243 + x242
      x1751 = 0.000178367235960219d0*x692
      x1752 = x1316*x569
      x1753 = 0.015421510343682d0*x875
      x1754 = 0.032153849066577d0*x232
      x1755 = x1564*x1754
      x1756 = x1655*x1748
      x1757 = x1748*x241
      x1758 = x1536*x1757*x826
      x1759 = 3.34438567425411d-5*x14
      x1760 = x232*x875
      x1761 = x1760*x238
      x1762 = 0.00289153318944038d0*x241
      x1763 = 0.0231322655155231d0*x867
      x1764 = x1763 + 0.000535101707880657d0*x853
      x1765 = 0.00289153318944038d0*x1760*x1764
      x1766 = x1508*x1509
      x1767 = x1515*x1748
      x1768 = x1512*x851 - x1766*x1767*x851 + x1766
      x1769 = x1517*x790
      x1770 = x1316*x568
      x1771 = x1754*x812*x875
      x1772 = x1721*x236
      x1773 = x641*x874
      x1774 = x550*x875
      E = -rho_c*(-x246*x247 + x250)
      d1E(1) = x208 + 0.25d0*x24*x251 + x247*x560 + x718*(1.035516455168
     &61d0*x254 - 0.00532388859905012d0*x257 + 0.632057270482087d0*x261 
     &+ 0.40528798439483d0*x268 - 16.0d0*x277 + 4.67857871796416d0*x283 
     &- 20.5190512099364d0*x289 + 32.0d0*x291 - 8.0d0*x305 + 2.712620989
     &63145d0*x308 + 2.0d0*x532 + x538*x561 - x717)
      d1E(2) = -rho_c*(x722 + x723 - x726 + x729 + x786 + x789 - x880)
      d1E(3) = x562*x718*x885
      d2E(1) = x1223 + x1363*(-x1151*x536*x562*x564*x716 + x1154*x1157*x
     &225/x558**2 - 2.0d0*x24*(-x1065*(x1059 - x1064 - x967 + x968 + x97
     &0 - x971 + x973 + x974 - x975 - x976 + x977) + x1071*(-x1067*x249 
     &+ x1070) - x1098*(-x1085*x460 + x1086*x211 + x1088*x322 + x1090*x3
     &23 - x1091 *x210 - x1092*x323 - x1093*x1094 + x1097 + x461*(x1058 
     &+ x1073 + x1074 + x1075 + x1077 + x1078 + x1080 + x1082 + x1083 - 
     &x1084) + x753*x82) - x1099*x158*x249 - x1101*x1111*x138*x734 + x11
     &02*x1106 - x1102*x1110 + x1150) + 13.7968361876045d0*x251*x954 - 1
     &3.5631049481572d0*x251*x955 + 16.2757259377887d0*x307*x531 + 3.0d0
     &*x553*x566*(0.0899588103381452d0*x1158 + x1160*x1171*x555 + 0.0719
     &670482705162d0*x1160*x554*x573 + x1161*x1164*x554 - x1176* x1181*x
     &1182 + 0.0160769245332885d0*x1176*x1243*x1245 - x1177* x1183*x605 
     &- 0.150051295644026d0*x1177*x567 + 0.0893877004050842d0*x1179*x118
     &0 + 0.00385537758592051d0*x1180* x1230 + 0.000722883297360095d0*x1
     &180*x1242*x546*( 0.257230792532616d0*x1191*x232 + x1231*x1250 + x1
     &234*x1251 + x1239*x1252 - x1240*x1254 - 0.0059503309916329d0*x1241
     & - 0.123372082749456d0*x1249*x547 - 0.215901144811548d0*x547*x608)
     &/ x552**2 - x1182*x1190*x1244*x548*x825 + x1184*x554*x605 + x1185*
     & x1187*x238 - x1185*x1243*x553*x554 - 0.0160769245332885d0*x1186* 
     &x1191*x671 - x1186*x1238*x1244*x1246*x1247 + x1187*x1188*x1190* x6
     &91 + 0.000240961099120032d0*x1231*x230*(x1176*x1183*x1278 + x1176*
     &x1261 + x1176*x1263 - 6.17353902078279d0*x1176*x1267*x230 - x1179*
     &x1262 - x1184*x1278 - x1230*x1315 + x1232*x1235*x1265*x1277 *x575 
     &- x1255 - x1256*x1257 - x1256*x1260 - x1259*x231 + x1264* x1267 - 
     &x1265*x1271*x1275 + 0.370116248248369d0*x1266*x230*( -x1228 - x127
     &9 - x1280 + x1281 - x1282 + x1283 - x1284 + x1285 + x1286 + x1287 
     &+ x1288 + x1289 - x1290 + x1291 - x1292 + x1294 - x1295 - x1296 + 
     &x1297 - x1298 + x1299 - x1300 - x1301 + x1302 + x1303 - x1304 + x1
     &305 + x1310 + x1311 - x1312 + x1314) - x1271* x1273*x544*exp(-x126
     &8*x223)) - 0.000240961099120032d0*x1245*x238* (gamma_cc*rho_c**(-8
     &.66666666666667d0)*x12*x1320*x227*x237*x27 + 0.136986037217448d0*r
     &ho_s*x1272*x1331*x1344*x694 + 0.00642122049456788d0*rho_s*x1319*x1
     &98*x237*x679*(x1322 + x1323 + 5.33333333333333d0*x534 - 5.33333333
     &333333d0*x535) + x1188*x1329* x1343 + x1255*x233 + x1257*x1317 + x
     &1259*x1316 + x1260*x1317 - x1261*x1324 - x1263*x1324 + x1264*x1328
     &*x1329 + x1278*x1324*x1345 - x1278*x1347*x233 + 0.159817043420356d
     &0*x1318*x1319 - x1324* x1348*x707 + 0.198503041880874d0*x1325*x132
     &6*x698 + x1325*x1327* x233 + 0.239725565130534d0*x1330*x1331 + x13
     &32*x1340*x1341/x202** 3 + x1333*x1335 - x1335*x1338 - x1341*x1342*
     &x201*x203 + 0.0357019859497974d0*x1345*x699 - 0.333218535531443d0*
     &x1346*x604 - 0.0357019859497974d0*x1347*x698 - x1349*x604*x690 - x
     &1350*x1351 *x233 - x1350*x1352*x201*x204*x680 + x1362*x233*(-x1192
     & - x1193 + x1194 - x1195 + x1196 - x1197 + x1198 + x1199 + x1200 +
     & x1201 + x1202 - x1203 + x1204 - x1205 + x1206 - x1207 - x1208 + x
     &1209 - x1210 + x1211 - x1212 - x1213 + x1214 + x1215 - x1217 + x12
     &19 - x1225 - x1229 + 8.34d0*x1355 - 8.34d0*x1359 - 16.68d0*x1361) 
     &+ 0.00214040683152263d0*x585*x698*(-38.3552046015406d0*x1216 + 37.
     &7054317558771d0*x1218 - 45.2465181070525d0*x1224 - 5.56d0* x1228 +
     & 16.68d0*x1355 - 16.68d0*x1359 - 33.36d0*x1361 - 11.5149429814749d
     &0*x891 - 0.355209847328624d0*x893 + 27.040814318823d0*x895 - 0.227
     &767782737804d0*x898 + 0.0592016412214373d0*x901 - 26.356788179103d
     &0*x903 + 1.31783940895515d0*x912 + 8.63620723610619d0*x915 + 8.636
     &20723610619d0*x916 + 133.44d0*x919 + 133.44d0*x921 - 2.62931431965
     &879d0*x922 + 312.154772062569d0*x923 - 39.0193465078211d0*x926 + 2
     &00.159992293059d0*x929 - 1155.30723360636d0*x930 - 133.44d0*x932 +
     & 1369.03109672696d0*x933 - 1334.4d0*x935 + 39.0193465078211d0*x937
     & - 66.72d0*x939 - 342.257774181739d0*x941 + 533.76d0*x943 + 66.72d
     &0*x952) - 0.190410591732253d0*x604*x693*x696 + 0.169805608634128d0
     &*x672* x695)) + x559*x956*x957*x958 - x561*x965*(2.0d0*x534 - 2.0d
     &0*x535 + x964) - 4.14206582067443d0*x891 - 0.127773326377203d0*x89
     &3 + 9.72691162547591d0*x895 - 0.0819308570999294d0*x898 + 0.021295
     &5543962005d0*x901 - 9.4808590572313d0*x903 + 0.474042952861565d0*x
     &912 + 3.10654936550583d0*x915 + 3.10654936550583d0*x916 + 48.0d0*x
     &919 + 48.0d0*x921 - 0.945796517862875d0*x922 + 112.28588923114d0*x
     &923 - 14.0357361538925d0*x926 + 71.9999972277189d0*x929 - 415.5781
     &41585021d0*x930 - 48.0d0*x932 + 492.457229038473d0*x933 - 480.0d0*
     &x935 + 14.0357361538925d0*x937 - 24.0d0*x939 - 123.114307259618d0*
     &x941 + 192.0d0*x943 + 24.0d0*x952) + 0.5d0* x267*x536*x561 + 1.169
     &64467949104d0*x283 + 0.678155247407862d0* x308 + 0.5d0*x532 - 0.25
     &d0*x717 + x886 + x887 + x888 + x889 + x890
      d2E(2) = x1363*(-x1155*x1499*x1507*x683*x791 - x1157*x1518*x715 - 
     &x1293*x1376 + 0.0638866631886015d0*x1364 + 0.0409654285499647d0*x1
     &366 - 9.72691162547591d0*x1367 + 384.0d0*x1368*x728 + 7.5846872457
     &8504d0*x1369 - 0.474042952861565d0*x1374 - 56.14294461557d0*x1375 
     &- 492.457229038473d0*x1377 + 24.0d0*x1378 + 61.5571536298092d0*x13
     &79 - 96.0d0*x1380 - 8.13786296889434d0* x1381 - x1382*x911*x958 + 
     &x1383*x787*(x536 + x964) - 2.0d0*x1503 + x1504*x1506*x536 + 3.0d0*
     &x792*(-x1160*x1164*x875 - 0.00385537758592051d0*x1318*x575*x820 - 
     &0.0359835241352581d0* x1519*x573 - x1522*x234*x570*x576 - 0.075025
     &6478220131d0*x1523 - x1524*x1525*x577 + x1524*x604*x793 - x1525*x1
     &538*x664*x667 - 0.00674691077536089d0*x1526*x672 + 0.0321538490665
     &77d0*x1528*x793 - x1530*x603 + x1531*x1532 + 0.00803846226664426d0
     &*x1533*x604 - x1534*x1535*x1537 + x1537*x577*x715*x826*x873 + x153
     &7*x691*x711* x793 - x1538*x1564*x1565 + 0.010717949688859d0*x1562*
     &x876 + 0.00674691077536089d0*x1563*x851 + x1566*x1567*x1568*x666 +
     & x1566 *x1569*x820 - x1574*x1575*x877 + x1588*(x1188*x1581*x201*x8
     &18 - 2.05784634026093d0*x1249*x812 - x1256*x1258 + x1327*x1531 + 2
     &.59081373773858d0*x1328*x1579 + x1333*x687*x818 - x1337*x687* x819
     & - x1351*(x1309*x911 + x1313*x1585 + x1383*x681*(x683 + x964 ) + x
     &1503 - x1504*x1586*x683 + x1539 - x1541 - x1548 + x1549 + x1550 + 
     &x1551 - x1552 - x1554 + x1555 + x1557 + x1587) - x1522* x1577 + x1
     &528*x1582 + 0.514461585065233d0*x1562*x232 + 2.05784634026093d0*x1
     &570*x604 - x1576 - x1578*x812 - x1581*x567* x688 - x1583*x603 - x1
     &584*x604*x819 - x1584*x707*x812) - x1656*( x1159*x1306*x1589*x231 
     &- x1276*x1589*x1590*x575*x862 + 0.0570775155072701d0*x1319*x226*x6
     &12*x827 + 0.119862782565267d0* x1330*x864 - x1336*x659*x666*x861 -
     & x1342*x1617*x861 - x1511* x1578 - x1511*x1619*x659 + 2.0578463402
     &6093d0*x1511*x613 - x1534* x1580*x658 + 2.05784634026093d0*x1571*x
     &637 - x1572*x1619*x637 - x1576*x666 + x1577*x666*(-x1168 - x1169 -
     & x1520 + x1521) + 0.0952052958661265d0*x1592*x612*x850 + 0.0064212
     &2049456788d0* x1592*(-x1165 + x1166 - x1322 - x1323) + 2.590813737
     &73858d0*x1593 *x641*x662 - x1595*x1600*x658*x824 - x1595*x612*x676
     &*x694*x863 + x1596*x1601*x637 - 0.166609267765721d0*x1597 + x1599*
     &x637*x666 - x16*x1617*x1620*x850 + x1603*x1606 + x1603*x1608 + x16
     &09*x1610 + x1610*x1618 + x1611*x1613 + x1613*x1615 - x1620*x1621*x
     &637 - x1645*x1647 - x1645*x1649 + 0.514461585065233d0*x1652*x1653 
     &+ 0.0119006619832658d0*x1652*x1654 + 0.0952052958661265d0*x637*x82
     &8 - 0.0799085217101781d0*x696*x827) + 0.00803846226664426d0*x238* 
     &x711*x812*x876)) - x722 - x723 + x726 - x729 - x786 - x789 + x880
      d2E(3) = -rho_c*(-x1060*x1368 + x1156*x1518*x241*x879 - 0.33333333
     &3333333d0*x1382 *x26*x683 + 0.5d0*x1506*x788 + 0.237021476430782d0
     &*x1657 - x1660* x26 + 0.854960467080682d0*x1661 - 20.5190512099364
     &d0*x1662 + x1663*x956 + 0.0833333333333333d0*x1706 + 0.08333333333
     &33333d0* x1707*x26*x787 - 0.125d0*x792*(x1164*x1519 + x1181*x1523 
     &+ x1189* x1526*x692 - x1190*x1563*x826 - x1247*x1565*x1721*x820 + 
     &0.00514050344789401d0*x1519*x1707*x570 + 0.032153849066577d0* x152
     &3*x1527 - x1530*x811 + x1532*x1708 + x1533*x1720 + x1574* x1722*x8
     &76 + x1588*(x1327*x1708 + x1333*x1726 - x1338*x1726 - x1343*x1579 
     &- x1348*x812*x819 - x1351*(-x1308*x537 + x1586*x1729 + 10.25952560
     &49682d0*x1661 - 246.228614519237d0*x1662 + x1706 - 4.8634558127379
     &6d0*x1715 + 144.0d0*x1716 - 0.202643992197415d0* x1717 + x1727 - x
     &1728*x682) + x1362*x1719 + x1527*x1582*x812 - x1583*x811 + x1723 +
     & x1724 + x1725*x812) - x1656*(-x1277*x1593* x826 + x1320*x1591*x22
     &6*x695 - x1336*x1646*x1731 - x1342*x1648* x1731 - x1349*x1621*x850
     & + x1511*x1599 + x1511*x1725 - 6.17353902078279d0*x1511*x642*x662*
     &x862 + 0.00570775155072701d0* x1592*x1707 - 0.136986037217448d0*x1
     &594*x1600*x863 + x1597*x1601 + x1606*x1733 + x1608*x1733 + x1609*x
     &1730 + x1611*x1732 + x1615* x1732 + x1618*x1730 - x1647*x1741 - x1
     &649*x1741 + 0.185058124124184d0*x1653*(x1714*x1742 + x1714*x1744 +
     & x1718 - 13.5204071594115d0*x1734 + 28.5214811818116d0*x1735 + 684
     &.515548363478d0*x1736 + 400.32d0*x1737 - 2.78d0*x1740 + 16.68d0*x1
     &743) + 0.00214040683152263d0*x1654*(-15.8140729074618d0 *x1657 + 1
     &.12670059661763d0*x1717 - 27.040814318823d0*x1734 + 57.04296236362
     &31d0*x1735 + 1369.03109672696d0*x1736 + 800.64d0* x1737 - 5.56d0*x
     &1740 + x1742*x1745 + 33.36d0*x1743 + x1744*x1745 ) + x1723*x666 + 
     &x1724*x666 + 0.190410591732253d0*x828*x850) + 0.00385537758592051d
     &0*x1719*x585*x876 - x1720*x851*x874*x876))
      d2E(4) = 0.125d0*x562*(rho_c*(x1154*x1507*x1750*x562 - x241*x881*(
     &rho_s*x1751* x696 + x1249*x1753 + 0.000312142662930383d0*x1346 - 0
     &.00289153318944038d0*x1513*x1568*x1748*x867 + 0.00578306637888076d
     &0*x1535*x851*x867 - x1569*x1759 + x1575*x1765 *x641 - x1752*x1756 
     &+ x1752 - x1753*x1758*x702 + x1755*x1756 - x1755 - x1761*x1762*(x1
     &250*x672 + x1251*x693 + x1253*x690 - 0.0059503309916329d0*x699 + x
     &709) - x1761*x712 - 0.000371895686977057d0*x699) + x538*x75*x884) 
     &+ x885)
      d2E(5) = -x718*x791*(x1505*x1768*x1769 + x1750*x683*x732*x75 - x88
     &1*(x1722*x1765 + x1751*x822 - x1756*x1771 - x1757*x1772*x232*x641*
     &x821 - 0.015421510343682d0*x1758*x1770 - x1759*x1772*x1773 - x1762
     &*x1774 *x641*(x1573 + x872) + x1770*x574 + x1771 - 0.0028915331894
     &4038d0 *x1773*x1774 + 0.00578306637888076d0*x232*x672*x820 + 0.000
     &371895686977057d0*x698*x812))
      d2E(6) = -x1769*x718*x75*(x1750*x1768*x791 + x641*(0.0093463840640
     &7122d0*rho_c**( -7.0d0)*x1516*x665**8.34d0*x851 + x1516*x1748*x176
     &3 - x1746 + x1747*x1767 - x1749*x1764*x1766/x1514**2))
      end subroutine


C*****************************************************************************
      pure subroutine D2ESRC_PBE_GWS_ERF_singletref_triplet(rho_c, 
     &gamma_cc, mu, E, d1E, d2E)
C*****************************************************************************
C   Implemented by E.R. Kjellgren.
C
C   Subroutine generated using Sympy 1.3
C   Generated: March 22, 2019
C*****************************************************************************
      implicit none
      real*8, intent(in) :: rho_c, gamma_cc, mu
      real*8, intent(out) :: E, d1E(9), d2E(45)
      real*8 :: x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x
     &13, x14, x15, x16, x17, x18, x19, x20, x21, x22, x23, x24, x25, x2
     &6, x27, x28, x29, x30, x31, x32, x33, x34, x35, x36, x37, x38, x39
     &, x40, x41, x42, x43, x44, x45, x46, x47, x48, x49, x50, x51, x52,
     & x53, x54, x55, x56, x57, x58, x59, x60, x61, x62, x63, x64, x65, 
     &x66, x67, x68, x69, x70, x71, x72, x73, x74, x75, x76, x77, x78, x
     &79, x80, x81, x82, x83, x84, x85, x86, x87, x88, x89, x90, x91, x9
     &2, x93, x94, x95, x96, x97, x98, x99, x100, x101, x102, x103, x104
     &, x105, x106, x107, x108, x109, x110, x111, x112, x113, x114, x115
     &, x116, x117, x118, x119, x120, x121, x122, x123, x124, x125, x126
     &, x127, x128, x129, x130, x131, x132, x133, x134, x135, x136, x137
     &, x138, x139, x140, x141, x142, x143, x144, x145, x146, x147, x148
     &, x149, x150, x151, x152, x153, x154, x155, x156, x157, x158, x159
     &, x160, x161, x162, x163, x164, x165, x166, x167, x168, x169, x170
     &, x171, x172, x173, x174, x175, x176, x177, x178, x179, x180, x181
     &, x182, x183, x184, x185, x186, x187, x188, x189, x190, x191, x192
     &, x193, x194, x195, x196, x197, x198, x199, x200, x201, x202, x203
     &, x204, x205, x206, x207, x208, x209, x210, x211, x212, x213, x214
     &, x215, x216, x217, x218, x219, x220, x221, x222, x223, x224, x225
     &, x226, x227, x228, x229, x230, x231, x232, x233, x234, x235, x236
     &, x237, x238, x239, x240, x241, x242, x243, x244, x245, x246, x247
     &, x248, x249, x250, x251, x252, x253, x254, x255, x256, x257, x258
     &, x259, x260, x261, x262, x263, x264, x265, x266, x267, x268, x269
     &, x270, x271, x272, x273, x274, x275, x276, x277, x278, x279, x280
     &, x281, x282, x283, x284, x285, x286, x287, x288, x289, x290, x291
     &, x292, x293, x294, x295, x296, x297, x298, x299, x300, x301, x302
     &, x303, x304, x305, x306, x307, x308, x309, x310, x311, x312, x313
     &, x314, x315, x316, x317, x318, x319, x320, x321, x322, x323, x324
     &, x325, x326, x327, x328, x329, x330, x331, x332, x333, x334, x335
     &, x336, x337, x338, x339, x340, x341, x342, x343, x344, x345, x346
     &, x347, x348, x349, x350, x351, x352, x353, x354, x355, x356, x357
     &, x358, x359, x360, x361, x362, x363, x364, x365, x366, x367, x368
     &, x369, x370, x371, x372, x373, x374, x375, x376, x377, x378, x379
     &, x380, x381, x382, x383, x384, x385, x386, x387, x388, x389, x390
     &, x391, x392, x393, x394, x395, x396, x397, x398, x399, x400, x401
     &, x402, x403, x404, x405, x406, x407, x408, x409, x410, x411, x412
     &, x413, x414, x415, x416, x417, x418, x419, x420, x421, x422, x423
     &, x424, x425, x426, x427, x428, x429, x430, x431, x432, x433, x434
     &, x435, x436, x437, x438, x439, x440, x441, x442, x443, x444, x445
     &, x446, x447, x448, x449, x450, x451, x452, x453, x454, x455, x456
     &, x457, x458, x459, x460, x461, x462, x463, x464, x465, x466, x467
     &, x468, x469, x470, x471, x472, x473, x474, x475, x476, x477, x478
     &, x479, x480, x481, x482, x483, x484, x485, x486, x487, x488, x489
     &, x490, x491, x492, x493, x494, x495, x496, x497, x498, x499, x500
     &, x501, x502, x503, x504, x505, x506, x507, x508, x509, x510, x511
     &, x512, x513, x514, x515, x516, x517, x518, x519, x520, x521, x522
     &, x523, x524, x525, x526, x527, x528, x529, x530, x531, x532, x533
     &, x534, x535, x536, x537, x538, x539, x540, x541, x542, x543, x544
     &, x545, x546, x547, x548, x549
      E = 0.0d0
      d1E(:) = 0.0d0
      d2E(:) = 0.0d0
      x0 = 1.46459188756152d0
      x1 = 1d0/x0
      x2 = rho_c**(-0.333333333333333d0)*x1
      x3 = 0.194159335344114d0*x2 + 1.0d0
      x4 = 2.0d0*x3
      x5 = 2.14502939711103d0
      x6 = 1d0/x5
      x7 = rho_c**0.666666666666667d0
      x8 = 1d0/x7
      x9 = x6*x8
      x10 = rho_c**(-0.5d0)
      x11 = 0.564189583547756d0
      x12 = 1.41872281647967d0*x11
      x13 = 0.826307487110758d0
      x14 = rho_c**(-0.166666666666667d0)*x13
      x15 = x10*x12 + 7.24010193431683d0*x14 + 3.25955091942229d0*x2 + 0
     &.406913004517529d0*x9
      x16 = 9.86960440108936d0
      x17 = 0.693147180559945d0
      x18 = -x17 + 1.0d0
      x19 = x16/x18
      x20 = x19/x15
      x21 = log(0.5d0*x20 + 1.0d0)
      x22 = 1d0/x16
      x23 = x18*x22
      x24 = x21*x23
      x25 = x24*x4
      x26 = mu**2
      x27 = 0.508616435555896d0*x26*x9 + 1.0d0
      x28 = x27**(-4)
      x29 = rho_c**(-1.66666666666667d0)
      x30 = 0.0223069557172962d0*x29
      x31 = mu**5
      x32 = 1.41421356237310d0
      x33 = 0.0837224526465878d0
      x34 = exp(-0.6836107611867116d0*x2)
      x35 = 4.60115111447049d0
      x36 = 1d0/x35
      x37 = rho_c**(-1.33333333333333d0)
      x38 = x36*x37
      x39 = rho_c**1.0d0
      x40 = 1d0/x39
      x41 = 3.14159265358979d0
      x42 = 1d0/x41
      x43 = 0.009578475d0*x42
      x44 = 0.0188171922990732d0*x2 + 0.00126674656487366d0*x38 - x40*x4
     &3 + 0.0676322201645715d0*x9 + 1.0d0
      x45 = x34*x44
      x46 = x33*x45
      x47 = x32*x46
      x48 = x31*x47
      x49 = x30*x48
      x50 = x2*x26
      x51 = 5.57236303607474d0*mu*x14 + 1.0d0
      x52 = 3.13317926779378d0*x50 + x51
      x53 = 1d0/x52
      x54 = mu**3
      x55 = x10*x11
      x56 = 6.76834298980504d0*x50 + x51 + 3.39260255780131d0*x54*x55
      x57 = x53*x56
      x58 = log(x57)
      x59 = 2.0d0*x58
      x60 = x22*(x17 - 1.0d0)
      x61 = x59*x60
      x62 = rho_c**(-2.66666666666667d0)
      x63 = mu**8
      x64 = x18*x21
      x65 = x3*x64
      x66 = 0.00478594012208448d0*x65
      x67 = 0.133841734303777d0*x62*x63*x66
      x68 = mu**6
      x69 = x45 - 1.0d0
      x70 = 0.148394183600699d0
      x71 = x29*x70
      x72 = rho_c**(-2.0d0)
      x73 = 0.0102659822546843d0*x65
      x74 = x68*(0.0167302167879722d0*x69*x71 + 1.0525946465532d0*x72*x7
     &3)
      x75 = 0.179587122125167d0
      x76 = x45*x75
      x77 = 0.175432441092201d0*x76
      x78 = -4.49737346725955d0*x2 + 0.825481812223657d0*x9
      x79 = exp(-0.28165369188898165d0*x2)
      x80 = x41*x79
      x81 = 12.0d0*x80
      x82 = x78*x81
      x83 = 0.494402081358784d0*x2 + 0.0524148278841779d0*x9 + 1.0d0
      x84 = 1d0/x83
      x85 = -0.0259335011650457d0*x2 + 1.0d0
      x86 = x84*x85
      x87 = 2.28942848510666d0
      x88 = x35*x87
      x89 = 1.63540853354893d0*x88
      x90 = x86*x89
      x91 = x33*(x39*x82 + x7*x90)
      x92 = 0.00111534778586481d0*x29
      x93 = x32*x54
      x94 = x93*(x40*x77 + x91*x92)
      x95 = mu**4
      x96 = 0.13157433081915d0*x69
      x97 = x40*x42
      x98 = x96*x97
      x99 = 0.022020833726518d0*x65
      x100 = 3.10428814221102d0*x37*x99
      x101 = 1.63540853354893d0*x88
      x102 = exp(-0.49698248213959023d0*x2)
      x103 = x102*(-0.352521395009435d0*x2 + 0.558025705063192d0*x9)
      x104 = x103*x5
      x105 = 10.9027235569928d0*x104
      x106 = x70*(x101 - x105 - x90)
      x107 = 0.00139418473233101d0*rho_c**(-1.0d0)*x106
      x108 = x95*(-x100 + x107 - x98)
      x109 = x108 - x49 + x61 - x67 - x74 - x94
      x110 = x109*x28
      x111 = x110 + x25
      x112 = 1/(x21*x3)
      x113 = x111*x112
      x114 = x113**2.78d0
      x115 = x49 + x67 + x74 + x94
      x116 = -x108 + x115 - x61
      x117 = x116*x28
      x118 = -x117 + x25
      x119 = x118*x19
      x120 = exp(x119)
      x121 = x120 - 1.0d0
      x122 = 1d0/x121
      x123 = 8397.87994635719d0*x18**(-3.78d0)
      x124 = x114*x123
      x125 = rho_c**(-2.33333333333333d0)
      x126 = 0.000420983227766184d0*x125
      x127 = x124*x126
      x128 = gamma_cc*x127
      x129 = x122*x128 + 1.0d0
      x130 = x114*x129
      x131 = x123*x126
      x132 = x130*x131
      x133 = x121**(-2)
      x134 = rho_c**(-4.66666666666667d0)
      x135 = x113**5.56d0
      x136 = x134*x135
      x137 = x133*x136
      x138 = gamma_cc**2
      x139 = 70524387.5934282d0*x18**(-7.56d0)
      x140 = 1.77226878060434d-7*x139
      x141 = x138*x140
      x142 = x129 + x137*x141
      x143 = 1d0/x142
      x144 = gamma_cc*x143
      x145 = x132*x144 + 1.0d0
      x146 = x23*log(x145)
      x147 = x111*x19
      x148 = exp(x147)
      x149 = x148 - 1.0d0
      x150 = x149**(-2)
      x151 = x136*x150
      x152 = x141*x151
      x153 = 1d0/x149
      x154 = x128*x153 + 1.0d0
      x155 = x152 + x154
      x156 = 1d0/x155
      x157 = gamma_cc*x156
      x158 = x114*x154
      x159 = x131*x158
      x160 = rho_c**(-3.33333333333333d0)
      x161 = 0.000982294198121095d0*x160
      x162 = x158*x161
      x163 = 1d0/x111
      x164 = 0.0691804894611514d0*x64
      x165 = x164*x37
      x166 = x29*x6
      x167 = rho_c**(-1.5d0)
      x168 = x11*x167
      x169 = x1*x37
      x170 = rho_c**(-1.16666666666667d0)*x13
      x171 = 0.27127533634502d0*x166 + 0.709361408239834d0*x168 + 1.0865
     &1697314076d0* x169 + 1.20668365571947d0*x170
      x172 = x20 + 2.0d0
      x173 = 1d0/x172
      x174 = x173/x15**2
      x175 = x171*x174
      x176 = x175*x3
      x177 = x27**(-5)
      x178 = x177*x26
      x179 = x109*x178
      x180 = x166*x179
      x181 = 0.129439556896076d0*x37
      x182 = x164*x181
      x183 = x175*x4
      x184 = -x182 + x183
      x185 = x184*x19
      x186 = x113*x185
      x187 = rho_c**(-0.333333333333333d0)
      x188 = x187*x88
      x189 = 1.09027235569928d0*x188
      x190 = x0*x8
      x191 = 1.80615420514536d0*x103*x190
      x192 = 7.26848237132856d0*x104*x187
      x193 = x102*(-0.372017136708795d0*x166 + 0.117507131669812d0*x169)
     &
      x194 = x193*x5
      x195 = 10.9027235569928d0*x7
      x196 = x194*x195
      x197 = x41*x84*x87
      x198 = 0.0141372897033723d0*x197*x8
      x199 = 1.09027235569928d0*x188*x86
      x200 = x83**(-2)
      x201 = 0.034943218589452d0*x166 + 0.164800693786261d0*x169
      x202 = x200*x201
      x203 = x202*x85
      x204 = x7*x89
      x205 = x203*x204
      x206 = x189 - x191 - x192 - x196 - x198 - x199 - x205
      x207 = 0.00139418473233101d0*x71
      x208 = 0.00232364122055169d0*x72
      x209 = x42*x72
      x210 = x182 - x183
      x211 = 1.55214407110551d0*x38
      x212 = rho_c**(-2.33333333333333d0)
      x213 = x212*x36
      x214 = -0.0225440733881905d0*x166 - 0.0031361987165122d0*x169 + 0.
     &0047892375d0* x209 - 0.000844497709915773d0*x213
      x215 = x34*(0.113935126864452d0*x169*x44 + x214)
      x216 = 0.263148661638301d0*x97
      x217 = x209*x96 + x210*x211 + 4.13905085628136d0*x212*x99 - x215*x
     &216
      x218 = 0.00168899541983155d0*x213
      x219 = x43*x72
      x220 = 0.045088146776381d0*x166
      x221 = 0.00627239743302441d0*x169
      x222 = x34*(-x218 + x219 - x220 - x221)
      x223 = x222*x75
      x224 = 0.175432441092201d0*x40
      x225 = x223*x224
      x226 = 0.122619224952946d0
      x227 = x212*x226
      x228 = 0.0399758348639607d0*x227*x45
      x229 = x72*x77
      x230 = 0.00185891297644135d0*x62*x91
      x231 = -0.550321208149104d0*x166 + 1.49912448908652d0*x169
      x232 = x39*x81
      x233 = x78*x79
      x234 = 2.14502939711103d0
      x235 = rho_c**(-0.333333333333333d0)*x234
      x236 = x198 + x199 + x205
      x237 = x33*(x231*x232 + 1.12661476755593d0*x233*x235 + x236 + x82)
     &
      x238 = x237*x92
      x239 = x26*x32
      x240 = 0.928727172679123d0*x170
      x241 = mu*x169
      x242 = 2.25611432993501d0*x241
      x243 = 1.69630127890066d0*x168*x26
      x244 = x240 + 1.04439308926459d0*x241
      x245 = -x240 - x242 - x243 + x244*x57
      x246 = 1d0/x56
      x247 = 2.0d0*x246
      x248 = x245*x247
      x249 = x248*x60
      x250 = x222*x33
      x251 = x32*x95
      x252 = x251*x30
      x253 = x62*x70
      x254 = rho_c**(-3.0d0)
      x255 = 2.10518929310641d0*x254
      x256 = 0.0334604335759443d0*x71
      x257 = 0.101321183642338d0
      x258 = x210*x257
      x259 = 0.526297323276602d0*x72
      x260 = 0.0472353356922751d0
      x261 = mu**7
      x262 = x210*x260*x261
      x263 = 0.0669208671518886d0*x62
      x264 = rho_c**(-3.66666666666667d0)
      x265 = 0.356911291476739d0*x264
      x266 = x261*x66
      x267 = x62*x95
      x268 = 0.0571643564037363d0
      x269 = x251*x45
      x270 = x268*x269
      x271 = -0.00508309165921971d0*x254*x270 + x262*x263 + x265*x266 + 
     &0.037178259528827d0*x267*x47 + x31*(-x215*x256 + 0.027883694646620
     &3d0*x253*x69 + x255*x73 + x258*x259)
      x272 = x239*(-x225 - x228 + x229 + x230 - x238) + x249 - x250*x252
     & + x271 + x54 *(-x106*x208 + x206*x207 + x217)
      x273 = mu*x28
      x274 = x272*x273
      x275 = 0.179920984085546d0*x165 - 2.78d0*x176 - 1.88527158779386d0
     &*x180 + 0.695d0*x186 - 1.39d0*x274
      x276 = 0.000841966455532367d0*x125
      x277 = x275*x276
      x278 = x163*x277
      x279 = x158*x278
      x280 = x126*x153
      x281 = x123*x161
      x282 = x148*x280
      x283 = 1.35631049481572d0*x180
      x284 = x184 + x274 + x283
      x285 = 82883.752878387d0*x18**(-4.78d0)
      x286 = x284*x285
      x287 = x282*x286
      x288 = x123*x163
      x289 = x277*x288
      x290 = x281 + x287 + x289
      x291 = gamma_cc*x135
      x292 = x290*x291
      x293 = x280*x292
      x294 = x153*x291
      x295 = rho_c**(-5.66666666666667d0)
      x296 = x139*x295
      x297 = 8.27058764282027d-7*x296
      x298 = 0.359841968171091d0*x165 - 5.56d0*x176 - 3.77054317558771d0
     &*x180 + 1.39d0*x186 - 2.78d0*x274
      x299 = 3.54453756120869d-7*x136
      x300 = x139*x299
      x301 = gamma_cc*x300
      x302 = x153*x301
      x303 = x163*x302
      x304 = x148*x150*x299
      x305 = 696047806.176231d0*x18**(-8.56d0)
      x306 = gamma_cc*x305
      x307 = x284*x306
      x308 = x124*x276
      x309 = x163*x308
      x310 = x114*x281 + x275*x309
      x311 = x114*x287 + x310
      x312 = x294*x297 + x298*x303 + x304*x307 + x311
      x313 = x158*x280
      x314 = x157*x313
      x315 = x312*x314
      x316 = 850.883136251163d0*x18**(-2.78d0)
      x317 = exp(x19*(x25 - x28*(x115 + x23*x59 + x95*(x100 - x107 + x98
     &)))) - 1.0d0
      x318 = x112*x118
      x319 = x134*x318**5.56d0
      x320 = x131*x318**2.78d0
      x321 = gamma_cc/x317
      x322 = x320*x321 + 1.0d0
      x323 = 1d0/(x141*x319/x317**2 + x322)
      x324 = x320*x322
      x325 = gamma_cc*x323*x324
      x326 = x122*x301
      x327 = x23*x323*(-x122*x325*(x127 + x326) + x140*x319*x321 + x324)
     &/(x325 + 1.0d0)
      x328 = x254*x42
      x329 = 0.263148661638301d0*x328*x69
      x330 = rho_c**(-3.33333333333333d0)
      x331 = 9.65778533132318d0*x330*x99
      x332 = 0.00619637658813783d0*x106*x254
      x333 = 0.526297323276602d0*x209*x215
      x334 = x330*x36
      x335 = x6*x62
      x336 = x1*x212
      x337 = x34*(0.455740507457808d0*x169*x214 - x254*x43 + 0.001970494
     &65647014d0* x334 + 0.0259624262672375d0*x335*x44 + 0.0375734556469
     &842d0*x335 - 0.151913502485936d0*x336*x44 + 0.00418159828868294d0*
     &x336)
      x338 = x216*x337
      x339 = 4.13905085628136d0*x210*x213
      x340 = 0.00464728244110338d0*x206*x253
      x341 = rho_c**(-1.33333333333333d0)
      x342 = x104*x341
      x343 = x341*x88
      x344 = 0.219734258381682d0*x336
      x345 = x204*x85
      x346 = x200*x345
      x347 = x188*x203
      x348 = 0.0282745794067445d0*x202*x41*x8*x87
      x349 = x201*x345*(0.0698864371789039d0*x166 + 0.329601387572523d0*
     &x169)/x83**3
      x350 = -x348 - x349
      x351 = 0.363424118566428d0*x343*x86 + x346*(0.0582386976490866d0*x
     &335 + x344) - 2.18054471139857d0*x347 + x350
      x352 = x207*(-x102*x195*x5*(0.620028561181324d0*x335 - 0.156676175
     &559749d0*x336 ) - 0.299209d0*x103*x72 - 14.5369647426571d0*x187*x1
     &94 - 3.61230841029072d0*x190*x193 + 2.42282745710952d0*x342 - 0.36
     &3424118566428d0*x343 + x351)
      x353 = x164*x212
      x354 = 0.172586075861435d0*x353
      x355 = 0.682784063255296d0*x175
      x356 = x181*x355
      x357 = x169*x175
      x358 = 0.129439556896076d0*x357
      x359 = rho_c**(-2.5d0)*x11
      x360 = rho_c**(-2.16666666666667d0)*x13
      x361 = x174*(0.452125560575033d0*x335 + 1.44868929752102d0*x336 + 
     &1.06404211235975d0*x359 + 1.40779759833938d0*x360)
      x362 = x361*x4
      x363 = x171**2*x19/(x15**4*x172**2)
      x364 = x363*x4
      x365 = x171*x173*(x12*x167 + 0.542550672690039d0*x166 + 2.17303394
     &628153d0*x169 + 2.41336731143894d0*x170)/x15**3
      x366 = x365*x4
      x367 = -x354 + x356 + x358 + x362 + x364 - x366
      x368 = x211*x367
      x369 = x264*x69*x70
      x370 = 0.074356519057654d0*x369
      x371 = rho_c**(-4.0d0)
      x372 = 6.31556787931922d0*x371*x73
      x373 = 0.111534778586481d0*x215*x253
      x374 = x256*x337
      x375 = x255*x258
      x376 = x257*x259*x367
      x377 = 0.0799516697279215d0*x222*x227
      x378 = 0.350864882184401d0*x223*x72
      x379 = x34*(-0.01915695d0*x328 + 0.00394098931294027d0*x334 + 0.07
     &51469112939684d0*x335 + 0.00836319657736588d0*x336)
      x380 = x224*x379*x75
      x381 = 0.00910930363347549d0*rho_c**(-3.66666666666667d0)*x46
      x382 = 0.133252782879869d0*x226*x330*x45
      x383 = 0.350864882184401d0*x254*x76
      x384 = 0.00495710127051027d0*x264*x91
      x385 = 0.0037178259528827d0*x237*x62
      x386 = 24.0d0*x80
      x387 = x33*x92
      x388 = x387*(-2.25322953511185d0*x231*x235*x79 - x231*x386 - x232*
     &( 0.917202013581841d0*x335 - 1.99883265211535d0*x336) - 0.75107651
     &1703951d0*x233*x234*x37 - 0.154912426780983d0*x233*x29 + x351)
      x389 = 1.08351503479231d0*x360
      x390 = mu*x336
      x391 = x26*x359
      x392 = 2.0d0*x240 + 2.0d0*x242 + 2.0d0*x243
      x393 = mu*x244
      x394 = x393*x53
      x395 = x247*(x389 + 3.00815243991335d0*x390 + 2.54445191835098d0*x
     &391 - x392* x394 + x393*x56*(1.85745434535825d0*x170 + 2.088786178
     &52919d0* x241)/x52**2 - x57*(x389 + 1.39252411901946d0*x390))
      x396 = mu*x23
      x397 = x245*x392/x56**2
      x398 = x34*(x218 - x219 + x220 + x221)
      x399 = 0.0101661833184394d0*x251*x254*x268
      x400 = 0.074356519057654d0*x267*x32
      x401 = x23*x248
      x402 = x252*x33
      x403 = rho_c**(-4.66666666666667d0)
      x404 = -4.52089344419912d-5*rho_c**(-4.33333333333333d0)*x269 + x2
     &60*x261*x263* x367 - x262*x265 - 0.0991420254102054d0*x264*x47*x95
     & - 1.30867473541471d0*x266*x403 + 0.023721094409692d0*x270*x371 - 
     &x379*x402
      x405 = x273*(-x23*x395 - x239*(x377 - x378 + x380 + x381 - x382 + 
     &x383 + x384 - x385 - x388) - x31*(x370 + x372 - x373 + x374 + x375
     & - x376) - x33*x398*x400 + x394*x401 - x396*x397 + x398*x399 + x40
     &4 - x54*( x329 + x331 - x332 - x333 + x338 + x339 + x340 - x352 - 
     &x368))
      x406 = x334*x95/x27**6
      x407 = 2.29947269793409d0*x406
      x408 = x116*x407
      x409 = x116*x178
      x410 = 2.26051749135954d0*x335
      x411 = x409*x410
      x412 = -x239*(x225 + x228 - x229 - x230 + x238) + x271 + x398*x402
     & - x401 + x54 *(-x207*(-x189 + x191 + x192 + x196 + x236) + x208*x
     &70*(-x101 + x105 + x90) + x217)
      x413 = 2.71262098963145d0*x166
      x414 = x177*x54
      x415 = x413*x414
      x416 = x412*x415
      x417 = rho_c**(-4.33333333333333d0)
      x418 = x123*x417
      x419 = 0.00327431399373698d0*x418
      x420 = x275*x288
      x421 = 0.00392917679248438d0*x160
      x422 = x420*x421
      x423 = x111**(-2)
      x424 = x123*x423
      x425 = 0.00168393291106473d0*x125
      x426 = x275**2*x425
      x427 = x424*x426
      x428 = x130*x163
      x429 = x112*x210
      x430 = x273*x412
      x431 = -1.35631049481572d0*x166*x409 + x184 + x430
      x432 = x277*x424*x431
      x433 = 0.00196458839624219d0*x160
      x434 = x153*x433
      x435 = x123*x292
      x436 = x420*x425
      x437 = x113*x19
      x438 = 0.695d0*x437
      x439 = 1.39d0*x112
      x440 = 0.258879113792152d0*x165
      x441 = 4.0d0*x176
      x442 = x440 - x441
      x443 = 97.4090910340024d0*x111/(x18**2*x21**2*x3**2)
      x444 = 0.3475d0*x443
      x445 = mu*x60
      x446 = x273*(-x222*x399 + x239*(-x377 + x378 - x380 - x381 + x382 
     &- x383 - x384 + x385 + x388) - x249*x394 + x250*x400 + x31*(-x370 
     &- x372 + x373 - x374 - x375 + x376) + x395*x60 + x397*x445 + x404 
     &+ x54*(-x329 - x331 + x332 + x333 - x338 - x339 - x340 + x352 + x3
     &68))
      x447 = x3*x361
      x448 = x109*x406
      x449 = x3*x365
      x450 = x166*x272*x414
      x451 = x355*x37
      x452 = x179*x335
      x453 = x3*x363
      x454 = 0.239894645447394d0*x353 - 0.179920984085546d0*x357 + 1.39d
     &0*x446 - 2.78d0*x447 + 3.19626705012839d0*x448 + 2.78d0*x449 + 3.7
     &7054317558771d0*x450 - 0.179920984085546d0*x451 - 3.14211931298976
     &d0*x452 - 2.78d0*x453
      x455 = x276*x288*(x19*x210*x284*x439 + x210*x442*x444 + x367*x438 
     &+ x454)
      x456 = x130*x144
      x457 = x122*x291
      x458 = x120*x122
      x459 = x285*x458
      x460 = x431*x459
      x461 = x114*x126
      x462 = x163*x298
      x463 = x120*x306*x431
      x464 = x133*x299*x463 + x297*x457 + x310 + x326*x462 + x460*x461
      x465 = x122*x464
      x466 = x456*x465
      x467 = x153*x276
      x468 = x135*x290
      x469 = 1.65411752856405d-6*x296
      x470 = x114*x276
      x471 = x124*x163
      x472 = x275*x471
      x473 = 7.08907512241738d-7*x139
      x474 = gamma_cc*x136
      x475 = x122*x474
      x476 = 818029.852187331d0*x18**(-5.78d0)
      x477 = x431**2*x476
      x478 = x163*x275
      x479 = x285*x429*x478
      x480 = x425*x478
      x481 = x354 - x356 - x358 - x362 - x364 + x366
      x482 = x126*x459
      x483 = rho_c**(-6.66666666666667d0)*x139*x294
      x484 = x114*x148*x286
      x485 = x284**2
      x486 = x114*x282
      x487 = x485*exp(2.0d0*x147)
      x488 = 6869716491.20552d0*x18**(-9.56d0)
      x489 = x294*x296
      x490 = x153*x474
      x491 = x473*x490
      x492 = x284*x423
      x493 = x148*x151*x307
      x494 = x109*x407 - x179*x410 + x272*x415 + x446 + x481
      x495 = x285*x486
      x496 = x304*x306
      x497 = x185*(x210 - x274 - x283)
      x498 = x184*(-x440 + x441)
      x499 = x280*x456
      x500 = 1d0/x145
      x501 = x143*x500
      x502 = gamma_cc*x501
      x503 = x162 + x279 + x293 - x315
      x504 = x138*x156
      x505 = x156*x500
      x506 = gamma_cc*x316*x503*x505
      x507 = rho_c**(-2)
      x508 = (0.101077332976288d0*x2 + 1.0d0)*log(1.0d0 + 29.60857464321
     &6677d0/( 9.8721297225692712d0*x14 + 3.2918048099450625d0*x2 + 0.76
     &232752193529008d0*x55 + 0.41002507094961249d0*x9))
      x509 = x507*x508
      x510 = 7.26848237132856d0*x343
      x511 = 21.8054471139857d0*x342
      x512 = 0.0565491588134891d0*x197*x29
      x513 = x510*x86
      x514 = 8.72217884559427d0*x347
      x515 = x346*(0.0582386976490866d0*x335 + x344)
      x516 = x348 + x349 + x512 + x513 + x514 - x515
      x517 = x329 + 0.0524221118390615d0*x334*x508
      x518 = 3.0d0*x95
      x519 = x386*x40*x78
      x520 = 3.0d0*x93
      x521 = 4.0d0*x507*x58
      x522 = 1.2383028969055d0*rho_c**(-2.16666666666667d0)*x13
      x523 = mu*x1*x125
      x524 = 6.0d0*x246*(2.26173503853421d0*x391 + x522 + 3.008152439913
     &35d0*x523 - x57*(x522 + 1.39252411901946d0*x523))
      x525 = 0.00678055584048577d0*x260*x403*x508*x63 + 0.13384173430377
     &7d0*x264*x48 + 3.0d0*x68*(0.0177751651119307d0*x257*x371*x508 + 0.
     &0334604335759443d0*x369)
      x526 = x28*(x23*x521 - x396*x524 + x518*(-x207*(-x510 - x511 + x51
     &6) + x517) + x520*(x383 - x387*(x516 - x519)) + x525)
      x527 = 0.0469458581924011d0*x509
      x528 = x437*x509
      x529 = 0.0234729290962005d0*x528
      x530 = x350 - x512 - x513 - x514 + x515
      x531 = x28*(x445*x524 + x518*(x207*(x510 + x511 + x530) + x517) + 
     &x520*(x383 + x387*(x519 + x530)) - x521*x60 + x525)
      x532 = 0.463333333333333d0*x531
      x533 = x527 - x529 - x532
      x534 = 0.000561310970354912d0*x418
      x535 = 0.0025258993665971d0*x125
      x536 = -0.101321996098707d0*x509
      x537 = 1.33333333333333d0*x24*x3
      x538 = 3.0d0*x507
      x539 = 0.000140327742588728d0*x125
      x540 = x531 + x536 + x538*(0.666666666666667d0*x110 + x537)
      x541 = x127 + x302
      x542 = x123*x541
      x543 = x140*x490 + x159 - x314*x542
      x544 = x123*x162
      x545 = x158*x289
      x546 = x153*x157
      x547 = x541*x546
      x548 = (x308 + x491)/x155**2
      x549 = rho_c*x505
      E = -rho_c*(x118 - x146)
      d1E(1) = -rho_c*(-x157*x316*(-x162 - x279 - x293 + x315)/(x157*x15
     &9 + 1.0d0) + x284) + x117 + x146 - x25
      d1E(3) = rho_c*x327
      d2E(1) = rho_c*(-7145614.42661715d0*x143*x18**(-6.56d0)*x503*x504*
     &(-x126*x466 + x130*x161 + x130*x278 + x293)/x145**2 + x23*x502*(-x
     &123*x138*x143 *x465*x467*x468 - x123*x433*x466 - x123*x499*(-gamma
     &_cc*x304*x485 *x488 + x114*x419 + x124*x423*x426 + 3.3082350571281
     &1d-6*x148* x150*x284*x291*x295*x305 + x150*x470*x476*x487 + x153*x
     &480*x484 + x275*x308*x492 + x298**2*x423*x491 + x298*x302*x492 + x
     &303*( 2.78d0*x112*x497 + 0.479789290894789d0*x353 - 0.359841968171
     &091d0 *x357 - 1.39d0*x437*x481 + 0.695d0*x443*x498 + 2.78d0*x446 -
     & 5.56d0*x447 + 6.39253410025677d0*x448 + 5.56d0*x449 + 7.541086351
     &17542d0*x450 - 0.359841968171091d0*x451 - 6.28423862597952d0*x452 
     &- 5.56d0*x453) + 1.77226878060434d-7*x305 *x429*x462*x490 + x309*(
     &-x438*x481 + x439*x497 + x444*x498 + x454 ) + x421*x472 + x434*x48
     &4 + x461*x479 + 3.30823505712811d-6*x462* x489 + 1.41781502448348d
     &-6*x462*x493 - x476*x485*x486 + 4.68666633093149d-6*x483 - x494*x4
     &95 - x494*x496 + 1.06336126836261d-6*x474*x487*x488/x149**3) + x12
     &6*x275*x285*x428 *x429 + x130*x419 + x130*x422 + x130*x427 + x130*
     &x432 + x130*x455 + x131*x457*(-x126*x458*x477 + x126*x479 + x133*x
     &276*x477*exp( 2.0d0*x119) + x419 + x422 + x427 + x432 + x433*x460 
     &+ x455 + x460 *x480 - x482*(x405 - x408 + x411 + x416 + x481)) + x
     &132*x133*x138 *x464*(x124*x433 + 7.08907512241738d-7*x137*x463 + x
     &425*x472 + x457*x469 + x460*x470 + x462*x473*x475)/x142**2 + x153*
     &x292*x436 + x434*x435 - x436*x466) + x367 - x405 + x408 - x411 - x
     &416) + x409*x413 - 2.0d0*x430 + x442 - 2.0d0*x506
      d2E(3) = -rho_c*(0.666666666666667d0*x146*x507 - x316*x502*(0.0001
     &8710365678497d0 *x130*x417 - x153*x456*x539*(x114*x534 + 1.0633612
     &6836261d-6*x139 *x163*x490*(-0.0938917163848021d0*x509 + 0.0469458
     &581924011d0* x528 + 0.926666666666667d0*x531) + x471*x535*(-x527 +
     & x529 + x532 ) + 4.72605008161158d-7*x483 - x495*x540 - x496*x540)
     & - x276*x428 *x533 + x457*x539*(-x288*x533*x535 - x482*(x526 + x53
     &6 + x538*( -0.666666666666667d0*x117 + x537)) + x534)) - 0.0337739
     &986995691d0*x509 + 0.333333333333333d0*x526)
      d2E(4) = x327 - x549*(x23*(-x123*x314*(x294*x469 + x311 + x462*x49
     &1 + 7.08907512241738d-7*x493) - x123*x315 - x131*x150*x468*x504*x5
     &41 + x138*x150*x159*x312*x548 - x152*x156*x312 + x275*x303 + x435*
     & x467 + 4.13529382141014d-7*x489 - x544*x547 + x544 - x545*x547 + 
     &x545) - x506*x543)
      d2E(6) = -x23*x549*(x153*(-gamma_cc*x313*x542*x548 + 88.3758007628
     &71d0*rho_c**( -7.0d0)*x113**8.34d0*x154*x18**(-11.34d0)*x546 + x15
     &6*x158*x276* x542 + x300*x547 - x300) + x501*x543*(x132 + x140*x47
     &5 - x499* x542))
      end subroutine
